PDA

Vollständige Version anzeigen : Thread , Main wir nicht gefunden


TykaAndreas
25.09.2003, 19:50
was ist an diesem Thread Beispiel falsch ?
Schon beim laden wird der Dialog "Fehler ; weitermachen Ja Nein " angezeigt
ich klcke Ja , dann wird im Fenster-Aufgabenliste angezeigt:"Es wurde keien zugreifbare Mainmethode mit entsprechender Signatur in 'WinAPP_Thread_Form1' gefunden
Form1 ist das Formular in der WINAPP

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre>Inherits System.Windows.Forms.Form
<span class="TOKEN">Const</span> max_loop <span class="TOKEN">As</span> <span class="TOKEN">Integer</span> = 1000 * 1000 * 100
<span class="TOKEN">Const</span> interval <span class="TOKEN">As</span> <span class="TOKEN">Integer</span> = max_loop \ 200
&nbsp;
<span class="TOKEN">Private Sub</span> Button1_Click(<span class="TOKEN">ByVal</span> sender <span class="TOKEN">As</span> System.Object, <span class="TOKEN">ByVal</span> e <span class="TOKEN">As</span> System.EventArgs) Handles Button1.Click
Main()
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span>
&nbsp;
<span class="TOKEN">Sub</span> Main()
<span class="TOKEN">Dim</span> i <span class="TOKEN">As</span> <span class="TOKEN">Integer</span>
<span class="TOKEN">Dim</span> mythread <span class="TOKEN">As</span> <span class="TOKEN">New</span> Threading.Thread(<span class="TOKEN">AddressOf</span> sub1)
mythread.Start()
&nbsp;
<span class="TOKEN">For</span> i = 0 <span class="TOKEN">To</span> max_loop
<span class="TOKEN">If</span> i Mod interval = 0 <span class="TOKEN">Then</span> Me.Label1.Text = Label1.Text + &quot;M&quot;
<span class="TOKEN">Next</span>
&nbsp;
mythread.Join() <span class="REM">'auf ende warten</span>
Label1.Text = Label1.Text = &quot;ende&quot;
mythread.Abort()
&nbsp;
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span>
&nbsp;
<span class="TOKEN">Sub</span> sub1()
<span class="TOKEN">Dim</span> i <span class="TOKEN">As</span> <span class="TOKEN">Integer</span>
<span class="TOKEN">For</span> i = 0 <span class="TOKEN">To</span> max_loop
<span class="TOKEN">If</span> i Mod interval = 0 <span class="TOKEN">Then</span> Me.Label1.Text = Label1.Text + &quot;1&quot;
<span class="TOKEN">Next</span>
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

TykaAndreas
26.09.2003, 17:39
habe die Sub Main und Sub1 jetzt in ein Modul gepackt , und es zum Startobjeckt gemacht ,es wird Fehlerfrei ausgeführt,
Aber es findet kein Wechsel statt , er schreibt also nicht "MMM1111MMMM1111
sondern "MMMMM1111111"

TykaAndreas
08.10.2003, 12:14
hat sich aufgekärt, man kann mit VB.Net Threads innerhalb eines Thread nicht auf das gleiche steuerelement zugreifen. So versteh ich das ,nach allem was ich darüber lesen konnte