Visual Basic Forum

Verfasst am: 10.05.2012, 05:54 Aufrufe: 181

Hallo Christopher, hast mich falsch verstanden, ich will nicht wissen wie lange die prozedur oder sonstwas dauert, sondern ich will das datum mit uhrzeit aufzeichnen zu dem zeitpunkt wo der button gedrückt wurde. vielleicht hatte ich mich falsch ausgedrückt.

Verfasst am: 10.05.2012, 05:47 Aufrufe: 181

HI ich weis zwar nicht genau wofür du es brauchst aber wenn ich irgendwofür ein dauer berechnen möchte sprich wenn ich z.b. wissen will wie lange die prozedur dauert zum optimieren oder was auch immer verwende ich Private Declare Function GetTickCount Lib "kernel32.dll" () As Long Start = GetTickCount() Prozedur Ende = GetTickCount() dauer = Ende - Start und dann noch ...

Verfasst am: 05.03.2012, 18:32 Aufrufe: 174

Wie kann man mit VB6 den Schriftgrad eines in einem Word-Dokument markierten Wortes feststellen und dann dieses Wort um einen Bruchteil des ermittelten Punktwerts tieferstellen? Ich möchte diese Prozedur mit einem Makro realisieren, das ich durch eine Tastenkombination starten kann. Danke im Voraus Ernesto

Verfasst am: 27.01.2012, 10:44 Aufrufe: 358

hi für sowas gibt es eigene steuerelemente! DirListbox Drive FileListbox heissen in vb.net vl ein bisschen anders aber was du definitiv in deinem Statium des wissens... einen ordner im explorer anzeigen lassen und dann einen ordner wählen und aus diesem datein anzeigen lassen ausserdem ist das nicht die übliche prozedur Wink

Verfasst am: 19.10.2011, 09:16 Aufrufe: 320

Hey, ansich habe ich die Programmierung schon vollzogen, also der Timer läuft, aber das Programm reagiert noch nicht - es wird keine Prozedur unterbrochen. Weiß vielleicht jemand, wie ich der Prozedur (Auslesen von Datensätzen) sagen kann, dass sie beim TimerStart das Auslesen eines Eintrages unterbrechen und beim TimerStop fortsetzen soll? Oder kennt jemand einen Link zu einer Seite, wo das erklärt wird? ...

Verfasst am: 03.06.2011, 09:41 Aufrufe: 296

Mein Problem: Ich habe eine Windows-Form Anwendung die im Wesentlichen aus einem Hauptformular(Form1) das eine ganze Reihe von Kontrollelementen enthält und zwei weiteren kleineren Formularen, die jeweils nur zur Eingabe verschiedener Parameter benötigt werden. Das Ereignis "frm_Main_Load" enthält einen Prozeduraufruf der eine Datei ausliest und in einer Struktur ablegt, die über einen zweiten Prozedu ...

Verfasst am: 21.03.2011, 08:13 Aufrufe: 477

ganz einfach gehalten 'aufgerufen wird die ganz einfach mit Wait() oder Call Wait() Call Wait() 'jetzt ist hier der haltepunkt bis CPU.M(100,3) auf True Springt 'dann gehts weiter im Quelltext msgbox "CPU.M(100,3) = True", vbInformation, "MSGBOX" End Sub Private Sub Wait() 'eine Neue Prozedur do DoEvents 'dass das syst ...

Verfasst am: 31.08.2010, 07:21 Aufrufe: 553

hallo wenn du vl mal ein stück code zeigst bzw die prozedur vl kann man dann weiter helfen ansonsten wüsste ich leider keinen rat lg

Verfasst am: 25.08.2010, 13:50 Aufrufe: 1210

ja dann füg doch einfach unten an dein script sowas wie select Case OS case "WinXP": Prozedur oder funktionsaufruf für task case "win7": die ander funktion end select kannst damit vl was anfangen?

Verfasst am: 09.05.2010, 12:52 Aufrufe: 806

Hallo, ich bin neu hier im Board. Leider hab ich nirgends einen Thread zum Lösen eines solch einfachen Problems gefunden. Thematik: Bitte geben Sie eine Zahl ein: (Beíspiel 5) dann rechnet das Programm 1² + 2² + 3² + 4² + 5² = Ergebnis. Dieser Prozedur soll solange laufen bis der Benutzer die Zahl 0 eingibt. Dies hab ich ja bereits zum laufen gebracht. Nun aber das eigentliche Problem. Ich will eine Ab ...

Verfasst am: 26.02.2010, 11:39 Aufrufe: 556

Hallo Zusammen, mein Vorhaben ist folgendes: Ich habe eine Prozedur, die relativ lange braucht. Solange diese Prozedur am Arbeiten ist, möchte ich, um die Zeit sinnvoll nutzen zu können, dem Anwender einen Hinweis (Einfach einen String in einem neuen Form o.ä.) geben. Dieser Hinweis soll, wenn die Prozedur fertig ist, wieder ausgeblendet werden. Bei meinen Recherchen bin ich auf die Threads (mit denen ich schei ...

Verfasst am: 14.02.2010, 22:00 Aufrufe: 630

Parent = canvas End With wobei iShape einfach eine Integer Zählvariable ist. Canvas ist als globale deklariert. pHelp und alle weiteren Anweisungen sind Teil der Prozedur. Ich möchte nun diese Rechtecke in einer anderen Methode wieder verwenden. Versucht habe ich bis jetzt ganz naiv Dim "rctshp_Shape" & CStr(i) as RectangleShape und For i = 1 To iCount Dim ...

Verfasst am: 10.02.2010, 16:11 Aufrufe: 501

Text = ("Bitte nur Positive zahlen die größer als 0 sind !") End If da hast wird weiter gearbeitet. wennst jetzt aber noch hinschreibst exit sub also If gross <= 0 Or klein <= 0 Then Label3.Text = ("Bitte nur Positive zahlen die größer als 0 sind !") exit sub End If dann wird die ganze prozedur abgebrochen wenn die zahl kleiner als 0 ist vl hilft dir dass bei deinem p ...

Verfasst am: 17.01.2010, 19:31 Aufrufe: 793

... abgefragten Frequenz soll in der Excel Tabelle nach dem Eintrag aus der Combobox gesucht werden und dann je nach Frequenz 1 Spalte für 125Hz, 2 Spalten für 250HZ, 3 Stellen für 500Hz usw rechts von der "gefundenen" Zelle aus, der Nachhallwert eingelesen und in eine Variable gespeichert werden. Das gleiche Passiert auch noch mit den Werten der Störfaktoren wie Bilder an den Wänden. Die selbe Prozedur ...

Verfasst am: 17.01.2010, 15:35 Aufrufe: 423

Hallo ich habe hier einen Code für eine Anmeldung am Programm. Wenn das Programm zum roten Code kommt und das Formular geschlossen werden und ein neues geöffnet werden soll springt das Programm für mich unverständlicherweise zur blauen Prozedur. Warum ist das so und wie kann ich das verhindern? Gruss Arrowlight Public Class frmSplash Public txtMName As String Private Sub frmSplash_Load(ByVal send ...

Verfasst am: 06.01.2010, 11:02 Aufrufe: 361

Hallo Du könntest einen Timer einbauen der größtmögliches Intervall hat (1sek) Und immer die Systemzeit abfragen. um 00:00 soll dann ein Ereignis/Prozedur ausgeführt werden. Wie klingt diese Idee ? mfg

Verfasst am: 03.11.2009, 10:32 Aufrufe: 964

Mit dem "invisible"-befehl klappt das ja auch ganz gut und dass ich falls eine excel-instanz bereits geöffnet ist eine neue im hintergrund laufende anlege geht auch. nun kommt es aber zu folgendem problem: Öffne ich während der prozedur manuell eine excel-datei mit doppelklick, so öffnet sich diese in der gleichen instanz, die ich mit VB geöffnet habe und macht sie dadurch auch sichtbar. das wäre noch nicht ...

Verfasst am: 20.07.2009, 08:21 Aufrufe: 701

Hallo, hab da ein Problem ich möchte eine Abfrage starten sobald mein Port keine Antwort mehr bekommt. Jedoch springt das Programm nicht mehr zurück. Weiß jemand was ich falsch gemacht habe? Sub Pause(ByRef serialPort As System.IO.Ports.SerialPort) Dim response As String ' serialPort.Open() 1: serialPort.WriteLine("SL&F") Try ...

Verfasst am: 29.06.2009, 15:15 Aufrufe: 1372

Mit .NET brachte Microsoft den heiligen Gral des Mutlithreadings zu den VB Programmierern. Bis dahin mußten wir uns mit DoEvents vor UI Lockups bewahren, oder noch schlimmer Out Of Process ActiveX-Exen programmieren um diese zu verhinden. Programmieren mit Threads bringt jedoch neue Probleme mit sich wie Deadlocks, nicht mehr ansprechbare Controls da diese in einem anderen Thread laufen usw.Dieses kleine VB.NET 2005 ...

Verfasst am: 20.06.2009, 14:09 Aufrufe: 1043

0 ONLINE! Changelog: -Links können direkt aus dem PremiumAccount eingelesen werden - WICHTIG!: Vor dem Programm start über den INTERNET EXPLORER einmalig in seinen RS-Acc einloggen! Das ist wichtig und es muss über den INTERNET EXPLORER geschehen! Diese Prozedur muss einmalig vollzogen werden ! Wink

(meintest du es so Iceman?) -Uhr eingebaut -Status eingebaut wieviele LoginLinks -Die Login Links können nun in ein ...

Verfasst am: 15.06.2009, 12:32 Aufrufe: 1470

Thema: Procedures (Prozeduren)Autor: ZiGIndex:1. Einleitung2. Aufbau einer Funktion3. Werte übergeben4. ByVal, ByRef, Optional5. Tipps und Tricks6. Nachwort 1. EinleitungDie meisten werden sich jetzt denken "Prozeduren? Darüber weiß ich eh schon alles!".Aber ich bin sicher dass für jeden etwas dabei ist was er noch nicht wußte. :wink:Also fange ich mal an.Es gibt Sub- bzw. Function Prozeduren und ich gehe mal davon a ...

Verfasst am: 30.04.2009, 15:50 Aufrufe: 1172

Definiert wurde: Public XL As Object 'Excel-Application-Objekt Public BK As Object 'Excel Workbook-Objekt Public ST As Object 'Excel Worksheet-Objekt 'Prozedur 1 zum Starten von Excel: Sub Excel_Start1() 'überprüfen, ob eine Kopie von Microsoft Excel bereits ausgeführt ...

Verfasst am: 24.03.2009, 18:21 Aufrufe: 803

2008 ende: 0 es darf nur der eintrag mit ende "0" in der table stehen.. die anderen zeilen mit der lan 123456 werden rausgelöscht. und wenn nur ein eintrag mit der "lan" 123456 in der table ist, soll der übernommen werden. diese prozedur soll dann für jede andre zahl in der "lan" spalt wiederholt werden. ich wäre wirklich dankbar für eine lösung... ich zerbrech mir schon ...

Verfasst am: 17.02.2009, 21:48 Aufrufe: 1309

hi du musst die variable ausserhalb deiner prozedur deklarieren aber das ist jetzt was anderes zu deiner ersten frage... case 33: name_txt.text = "WasWeisDennIchWasFürEinName" alter_txt.text = "WasWeisDennIchWieGroß" 'und da... 'sagst du dann einfach dass deine Variable Null ist... generieren = 0 end select und wenn du nachher wieder auf den button klickst wird wieder p ...

Verfasst am: 17.02.2009, 21:45 Aufrufe: 1309

hi du musst die variable ausserhalb deiner prozedur deklarieren aber das ist jetzt was anderes zu deiner ersten frage... case 33: name_txt.text = "WasWeisDennIchWasFürEinName" alter_txt.text = "WasWeisDennIchWieGroß" 'und da... 'sagst du dann einfach dass deine Variable Null ist... generieren = 0 end select und wenn du nachher wieder auf den button klickst wird wieder p ...

Verfasst am: 17.02.2009, 18:58 Aufrufe: 1309

... enerieren_Click() Static generieren As Long generieren = generieren + 1 Select Case generieren Case 1: name_txt.Text = "Martin" alter_txt.Text = "18" Case 2: name_txt.Text = "Pascal" alter_txt.Text = "16" End Select End Sub Fragen: 1. Also erscheint alles doch wie mache ich wenn ich zum Drittenmal auf den generieren_cmd klicke das die Prozedur ...

Verfasst am: 05.02.2009, 20:01 Aufrufe: 2731

Visible = False Options.vbLogout.Visible = False Options.vbLogin.Visible = True Exit Sub End Sub In VB6 muss man allerdings noch das "sub PreMain()" in "Sub Main()" umbenennen und in den Prozeduren das "Call Main" in "Call PreMain" ändern ..sonst startet er nicht mit der Richtigen Prozedur.. Im Hauptmodul werden imme ...

Verfasst am: 27.09.2008, 11:51 Aufrufe: 1684

Verfasst am: 23.07.2008, 11:21 Aufrufe: 893

Verfasst am: 17.07.2008, 21:49 Aufrufe: 1214

Verfasst am: 17.07.2008, 21:26 Aufrufe: 1214

Verfasst am: 16.07.2008, 19:47 Aufrufe: 679

Hm ne ein socket möchte ich nicht so gerne, weil mir die Rückgabe im Dataarrival nicht so gefällt. Ich möchte den HTML Quelltext schon gern noch in der selben Prozedur erhalten. :>

Verfasst am: 16.07.2008, 15:49 Aufrufe: 770

Da ich aus deinem Text nicht ganz schlau werde, mach ich dir hier mal eine kleine Übersicht:Globale Variablen:Wenn du eine Variable ausserhalb einer Prozedur oder Funktion aber innerhalb einer Klasse deklarierst,ist sie für diese Klasse erreichbar. Sie kann durch jede Prozedur oder Funktion in der Klasse abgerufen oder verändert werden.Solltest du aber von einer anderen Klasse auf sie zugreifen wollen, musst du den K ...

Verfasst am: 06.07.2008, 18:07 Aufrufe: 825

... dMessage-API Funktion einen horizontalen Scrollbar hinzu - und dasganze nur nach Bedarf!Visual Basic: SendMessage-Funktion erwartet als dritten Parameter (wParam) die Breite des längsten Eintrags und zwar in der Maßeinheit Pixel!Die Breite eines Eintrags kann man ja mit der TextWidth-Funktion ermitteln, und in Pixel umrechnen lässt sich dann der Wert per Screen.TwipsPerPixelX. Also erstellen wir und eine Prozedur ...

Verfasst am: 04.07.2008, 16:33 Aufrufe: 3310

FontUnderline 'Font mit Unterline RichTextBox1.SelStrikeThru = cdl.FontStrikethru 'Font Durch Streichen Errhandler: 'Prozedur verlassen, wenn der Anwender auf Abbrechen klickt End Sub Private Sub Laden_code_Click() Dim input_data As String 'Variable Deklarieren cdl.ShowOpen 'Hier rufen wir das Dialog zum Laden auf! If cdl.FileName "" Then 'Wenn das was ...

Verfasst am: 05.06.2008, 17:31 Aufrufe: 490

(Trii;3381)Ist es wichtig ob die Variable über oder unter dem definiert wird?Ja.(Trii;3381)Außerhalb der Prozedur ungültig.Mit Variablen Arbeiten kannst du nur innerhalb von Subs und Prozeduren.Deklarier dir einfach 'ne Public Variable als Ersatz für deine Konstante.Den Wert vergibst du dann in der Sub Main und lädst die Form später.Sprich: Neues Modul mit folgendem Code:Visual Basic: [code]Public Nick As StringSub M ...

Verfasst am: 05.06.2008, 17:18 Aufrufe: 490

Ist es wichtig ob die Variable über oder unter dem definiert wird? o0 Wusste ich noch gar nicht. Aber danke.Außerhalb der Prozedur ungültig.

Verfasst am: 25.05.2008, 22:13 Aufrufe: 411

Nein. Das Handles keyword wird benutzt um zu deklarieren das eine Prozedur ein spezifisches Event handhabt.

Verfasst am: 12.05.2008, 21:51 Aufrufe: 1071

das problem an der php variante ist dass ich ziemlich häufig viele anfragen sende, und die ganze prozedur von einem weiteren zeitfaktor also dem webserver abhängt...gibts noch ne andere art ?danke schonmalmfg

Verfasst am: 30.04.2008, 19:29 Aufrufe: 5245

1. cmd(0) 2. Ich weiß nicht wie deine Prozedur "Build_server" genau aussieht. Es muß nur der selbe Name sein.

Verfasst am: 18.04.2008, 20:22 Aufrufe: 581

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) End Sub Die Variable "Button" enthält die Caption des Buttons der gedrückt wurde. Also select case Abfrage machen und dann halt die passende Prozedur aufrufen. Icons hinzufügen: With Toolbar1 .ImageList = ImageList1 .Buttons("key" oder Index").Image = "key" oder Index End With ...

Verfasst am: 29.03.2008, 19:09 Aufrufe: 299

Beim winsock gibt es verschiedene Events. Z.B. das "DataArrival". http://img3.imagebanana.com/img/t61ecl9/1.JPG Wenn dein Winsock etwas empfängt, wird diese Prozedur ausgeführt. Du brauchst also nur eine Variable wo du das empfangene speicherst. Private Sub Winsock_DataArrival(ByVal bytesTotal As Long) Dim sData As String Winsock.GetData sData End Sub

Verfasst am: 29.03.2008, 18:53 Aufrufe: 320

Und egal ob vorher deklariert oder nicht, der Wert geht nach der Schleife nicht verloren. Beispiel: For i = 1 to 100 next i msgbox i Die MsgBox würde dann "101" ausgeben. Da durch "next i" nochmal erhöht wird. Und dann ist die Schleife zu Ende. Nur wenn du die Variable in der Prozedur deklariert hast (nicht als static), wird sie nach dem Ende der Prozedur natürlich nicht mehr d ...

Verfasst am: 17.03.2008, 17:34 Aufrufe: 3391

Schreibst du den Teil auch innerhalb einer Prozedur?

Verfasst am: 11.03.2008, 20:54 Aufrufe: 596

Verfasst am: 09.03.2008, 21:24 Aufrufe: 1018

Thema: Procedures (Prozeduren) Autor: ZiG Index: 1. Einleitung 2. Aufbau einer Funktion 3. Werte übergeben 4. ByVal, ByRef, Optional 5. Tipps und Tricks 6. Nachwort 1. Einleitung Die meisten werden sich jetzt denken "Prozeduren? Darüber weiß ich eh schon alles!". Aber ich bin sicher dass für jeden etwas dabei ist was er noch nicht wußte. Wink

Also fange ich mal an. Es gibt Sub- bzw. Fu ...

Verfasst am: 01.03.2008, 21:21 Aufrufe: 3402

Du musst den Code auch innerhalb einer Prozedur einfügen. Rolling Eyes

Verfasst am: 01.03.2008, 21:13 Aufrufe: 3402

Verfasst am: 24.02.2008, 12:29 Aufrufe: 668

Gewöhn dir lieber an "Public" zu benutzen. Global ist noch aus alten VB Zeiten und wird nur noch wegen der Kompatibilität unterstützt. Und wie c0re sagte außerhalb eine Prozedur/Funktion. Ist ja unlogisch in einer Sub eine Variable public zu deklarieren, wenn nach beenden der Sub die Variable sowieso nicht mehr vorhanden ist.

Verfasst am: 19.02.2008, 20:50 Aufrufe: 556

Schau mal ob es bei der Form eine Prozedur Move gibt (Form_Move). Du liest die Position aus und verschiebst dann die Form wieder dorthin. Private Sub Form_Move() ' Position lesen Dim MyTop as Long Dim MyLeft as Long MyTop = Form.Top MyTop = Form.Left ' Warten bis Form verschoben ist Do Until Not Form.Top = MyTop Or Not Form.Left = MyLeft DoEvents Loop ' Positionieren Form.Top = MyTop Form.