eine sache x mal wiederholen

Question

guten abend!

also ich hab vor vielen jahren schon zum programmieren mit vb angefangen weil ich es ab und zu in der arbeit brauche, bin aber kein programmierer, aber da ich jetzt an einem etwas größeren projekt arbeite, wollte ich fragen ob ich folgendes vereinfachen kann (und ich bin sicher man kann):

also ich hab eine textbox die nennt sich menge, da geb ich eine zahl von 1 - 100 ein, danach soll ein anderes programm, zb excel gestartet werden und etwas ausgelöst werden, zb so oft hallo zu schreiben...

bisher habe ich das dann so gemacht:

if menge.text = "1" then

appacitivate("excel")

sendkeys.sendwait("hallo")

elseif menge.text = "2" then

appactivate("excel")

sendkeys.sendwait("hallo")

sendkeys.sendwait("hallo")

elseif menge.text = "3" then

............................ usw.

bei meinem neuen projekt kommt so ein fall etwa 20x vor und da is der aufwand ziemlich hoch, wenn ich es weiterhin mit meiner anfänger methode mache ;)

vielen dank für eure antworten!

Answer 1

Hi,

das, was Du suchst, wären dann u.a. wohl Schleifen. Siehe dazu:

  http://openbook.galileocomputing.de/vb_net/msvb020010.htm#Rxxmsvb020010256ForNext

In deinem Fall also bspw. so:

Public Sub MachWas( ByVal WieOft As Int32 )

    AppActivate( "Excel" )

    For Counter As Int32 = 1 To WieOft
        SendKeys.SendWait( "Hallo " & Counter.ToString )
    Next

End Sub

Du musst dann nur noch aus deinem Programm heraus die Methode MachWas mit der Anzahl der Wiederholungen aufrufen, also bspw.:

MachWas( 5 )

HTH

---

Gruß, Stefan
Microsoft MVP - Visual Developer ASP/ASP.NET
http://www.asp-solutions.de/ - Consulting, Development
http://www.aspnetzone.de/ - ASP.NET Zone, die ASP.NET Community

Answer 2

sehr geil! vielen dank!