Visual Basic Forum

Verfasst am: 11.05.2012, 13:42 Aufrufe: 52

ValidityPeriodRelative = 255 'UPGRADE_WARNING: Couldn't resolve default property of object smsObj.SendSMS. 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:/ ...

Verfasst am: 02.04.2012, 13:33 Aufrufe: 195

Verfasst am: 30.11.2011, 11:38 Aufrufe: 401

Ich möchte gerne in meinem Sub auf eine Function verweisen, damit diese dann ausgeführt wird. Meine Syntax schaut bisher wie folgt aus: Sub Execute1() Call ExportFile End Sub ------ Function ExportFile (lpszSourceFileName As String, lpszDestinationFileName As String, lExportType As Long) As Boolean ExportFile = True End Function der Code steht komplett in einem Modul. Nun zeigt mit VB beim Compilie ...

Verfasst am: 26.10.2011, 12:50 Aufrufe: 293

... and dafür interessiert: ich habs geschafft ihn auszutricksen Wink

hier der code: Public Declare Function GetTickCount Lib "kernel32" () As Long Public x As Long Public zeit() As Currency Public Sub Delay(nsekunden As Long) Dim TimeOut As Long TimeOut = (GetTickCount / 1000) + nsekunden Do DoEvents Loop Until TimeOut < (GetTickCount / 1000) End Sub x = zeit(i) Call ...

Verfasst am: 25.10.2011, 12:49 Aufrufe: 293

Output = "OUTPUT ON" & Chr(13) 'ausgabe des geräts aktivieren Call Verzoegerung(Zeit(i)) 'für gewisse zeit warten Next Next im Variablen-Modul: (damit die variablen übersichtlich bleiben) Public VDauer As Currency Public VStart As Currency Public VZeit As Currency im Modul: P ...

Verfasst am: 21.06.2011, 19:55 Aufrufe: 613

... ich nicht so genau hab ich ehrlich gesagt noch nie probiert dass ich ein steuerelement auf 2 stellen gebraucht habe... was aber im notfall auch geht dass du eben ein 2. listviewlement hast und eben in beiden einträgst bei buttons wäre es einfacher... Private Sub command1_click() 'hier dein code End sub private Sub Command123_click() 'der gleiche butten auf einem andern Tab call ...

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

Click Call DownloadItem("http://****-********.

Verfasst am: 21.03.2011, 08:13 Aufrufe: 476

.. 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 s ...

Verfasst am: 15.02.2011, 15:24 Aufrufe: 1086

lppxPrinterNotReady Message += " Drucker nicht bereit." Case LabelManager2.enumPausedReasonPrinting.lppxNoRibbon Message += " Kein Farbband." End Select Try Call MsgBox(Message) System.Windows.Forms.Application.DoEvents() If cancel Then refCancel = True Catch ex As Exception ...

Verfasst am: 02.02.2011, 00:18 Aufrufe: 640

Line (0, 0)-(6, 6), vbWhite, B Next i Call SetzeAnf(False) End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = 0 Then ' Schliessen unterbinden Cancel = 1 End If End Sub ' ' Focusrechteck zeichnen oder löschen, wenn bereits vorhanden ' Private Sub FlipFocusRect() Dim OldSetting As Boole ...

Verfasst am: 16.12.2010, 20:36 Aufrufe: 570

Top + Height DrawReversibleRect(Frame) End If End Sub Private Sub DrawReversibleRect(ByRef ARect As RECT) Dim g As Graphics = Parent.CreateGraphics Dim DC As Integer Dim BRect As Rectangle Dim CRect As RECT 'Koordinaten von ARect sind Client-Koordinaten If DrawOnClient Then DC = g.GetHdc.ToInt32 Call DrawFocusRect(DC, ARect) ...

Verfasst am: 14.12.2010, 08:43 Aufrufe: 1201

SelectedPath) & "\" End If Call Filmliste(MainFolder, "*") End Sub Dim NewLbl As New Label 'Label = New Label() Private Sub Filmliste(ByVal MainFolder As String, ByVal Filter As String) Dim Name1 As String Dim LblCounter As Long Dim NewLbl As Label = New Label() LblCounter = 0 ...

Verfasst am: 03.11.2010, 14:13 Aufrufe: 1156

hy achso ja ist auch kein problem.... mit form1_KeyDown(keycode as integer) 'oder wie auch immer If KeyCode = vbKeyNumpad1 Then Call Button1_Click end sub problem dabei ist da du buttons auf der form hast hat die form nie den focus und keydownevent funk nicht ... (vl ist es in vb.net mittlerweile anders) das heist du hast die wahl ob du bei deinem Taschenrechner in jeden button die c ...

Verfasst am: 19.10.2010, 09:55 Aufrufe: 629

Verfasst am: 27.09.2010, 17:50 Aufrufe: 811

Left = sfs Input #ff, sfs: Picture9(4).Top = sfs Input #ff, sfs: Picture11(0).Left = sfs Input #ff, sfs: Picture11(0).Top = sfs For S1 = 0 To Bod1 'Böden If Bod1 > 3 Then Call CMD1 Input #ff, sfs: Picture2(S1).Left = sfs Input #ff, sfs: Picture2(S1).Top = sfs Next For S2 = 0 To Bod2 'Pflanzen If Bod2 > 0 Then Call CMD2 Input #ff, sfs: Pi ...

Verfasst am: 03.09.2010, 15:04 Aufrufe: 813

Message) End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox("Erstellung eines Ordners", MsgBoxStyle.OkOnly, "Einen neuen Ordner wird jetzt erstellt...") Call CreateNewFolder() End Sub End Class -------------------------------------------------- ...

Verfasst am: 30.07.2010, 17:18 Aufrufe: 459

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: 23.07.2010, 19:42 Aufrufe: 608

... leName$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ pos% = InStr(a$, ";") Was$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ Mehr: pos% = InStr(a$, ";") x$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ pos% = InStr(a$, ";") If pos% <> 0 Then Y$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) Else Y$ = a$ a$ = "" End If Call ...

Verfasst am: 02.07.2010, 13:29 Aufrufe: 939

Object, ByVal e As System.EventArgs) Handles cmd_senden.Click Dim antwort As String Dim befehl As String befehl = txt_befehl.Text Call SendSerialData(befehl & CheckSum(befehl) & ChrW(3)) antwort = ReceiveSerialData() txt_antwort.Text = antwort End Sub Sub SendSerialData(ByVal data As String) Using com1 As IO.Ports.Serial ...

Verfasst am: 20.06.2010, 16:56 Aufrufe: 428

... MD5Init MD5Update Len(SourceString), StringToArray(SourceString) MD5Final DigestStrToHexStr = GetValues End Function Public Function DigestFileToHexStr(InFile As String) As String On Error GoTo errorhandler GoSub begin errorhandler: DigestFileToHexStr = "" Exit Function begin: Dim FileO As Integer FileO = FreeFile Call ...

Verfasst am: 01.04.2010, 19:10 Aufrufe: 485

Habe auch schon folgendes versucht: von = "01." & txtVon bis = "31." & txtBis dat = "01." 'Call ÖffneDB("Rechnungen", "WHERE '" & DateValue(dat & " Monat)" & "' BEETWEEN '" & DateValue(von) & "' AND'" & DateValue(bis) & "'") klappt aber auch irgendwie nicht. Vielleicht fällt euch j ...

Verfasst am: 15.12.2009, 15:41 Aufrufe: 608

Verfasst am: 14.12.2009, 19:23 Aufrufe: 1616

hWnd, 0) SetWindowText lwndC, lpszName capSetCallbackOnStatus lwndC, AddressOf MyStatusCallback capSetCallbackOnError lwndC, AddressOf MyErrorCallback If capDriverConnect(lwndC, 0) Then capDriverGetCaps lwndC, VarPtr(Caps), Len(Caps) capPreviewScale lwndC, True capPreviewRate lwndC, 66 ...

Verfasst am: 20.11.2009, 20:37 Aufrufe: 652

... dWindowA" (ByVal lpClassName As String, _ByVal lpWindowName As String) As Long Private Declare Function SetWindowPos Lib "user32" _ (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Private Sub Command1_Click() wHandle = FindWindow(vbNullString, "meinfreund") Call ...

Verfasst am: 17.11.2009, 12:57 Aufrufe: 1921

Hab mir da mal eine function gebastelt die eine Datei in beliebige "Formate" umwandelt Folgenden Code einfach in Modul geben, und im Programm mit "Call FileToFormat (Pfad und Name der Datei, Charset_aus_Liste) aufrufen 'Charset: ' UTF_7="utf-7", UTF_8="utf-8" ' BIG5="big5", US_ASCII "us-ascii" ' ISO_8859_1="iso-8859-1" ...

Verfasst am: 17.11.2009, 12:54 Aufrufe: 2708

Hab mir da mal eine function gebastelt die eine Datei in beliebige "Formate" umwandelt Folgenden Code einfach in Modul geben, und im Programm mit "Call FileToUTF8 (Pfad und Name der Datei, Charset_aus_Liste) aufrufen 'Charset: ' UTF_7="utf-7", UTF_8="utf-8" ' BIG5="big5", US_ASCII "us-ascii" ' ISO_8859_1="iso-8859-1", ...

Verfasst am: 07.11.2009, 19:51 Aufrufe: 912

ich weiß nicht vielleicht ist das das richtige Deklarationen: Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) Private Const VK_SNAPSHOT As Short = &H2CS Aktion: Call keybd_event(System.Windows.Forms.Keys.Snapshot, 0, 0, 0) System.Threading.Thread.Sleep(200) ' To have time to catch the ...

Verfasst am: 14.10.2009, 09:09 Aufrufe: 848

Verfasst am: 16.09.2009, 12:03 Aufrufe: 888

Verfasst am: 03.08.2009, 20:02 Aufrufe: 1188

dll" _ Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, _ phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As LongPublic Function Iconladen(Datei As String)Dim glSmallIcons() As LongDim lIndex As LongDim lIcons As LonglIcons = 0lIndex = 0Form1.Picture1.Picture = LoadPicture("")lIcons = ExtractIconEx(Datei, -1, 0, 0, 0)ReDim glSmallIcons(lIcons)Call Extra ...

Verfasst am: 25.07.2009, 10:30 Aufrufe: 653

... t wird:Visual Basic: [code]Private Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const GCL_STYLE = (-26)Private Const CS_DROPSHADOW = &H20000Private Sub Schlagschatten(ByVal hwnd As Long)Call ...

Verfasst am: 13.07.2009, 08:55 Aufrufe: 1798

Message) End Try con.Close() End Sub Private Sub cmdInternet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdInternet.Click Call URL_Load("http://www.google.de" & txtNachname.Text) End Sub Private Sub URL_Load(ByVal sURL As String) Dim appIE As Object Dim sTxt As String appIE = CreateOb ...

Verfasst am: 03.07.2009, 13:25 Aufrufe: 615

... t;Public Sub WriteNOPs(Address As Long, NOPNum As Integer) Dim pid&, phandle& Dim C As Integer Dim B As Integer If FindProcess = 0 Then Exit Sub GetWindowThreadProcessId FindProcess, pid phandle = OpenProcess(&H1F0FFF, False, pid) If phandle = 0 Then Exit Sub B = 0 For C = 1 To NOPNum Call ...

Verfasst am: 29.06.2009, 15:05 Aufrufe: 622

Beschreibung: Datei mittels Windows Dialog verschiebenFunktion:Visual Basic: Quelle: dotnet-snippets.de

Verfasst am: 29.06.2009, 15:04 Aufrufe: 808

Beschreibung:Datei mittels Windows Dialog kopierenFunktion:Visual Basic: Quelle: dotnet-snippets.de

Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800

Stop Then 'Attribute der Datei ändern Call SetAttr(sFilepath, vbNormal) 'Datei Binär öffnen ff = FreeFile Open sFilepath For Binary As #ff 'Dateigröße ermitteln iFilesize = LOF(ff) 'iBlocksize berechnen If iFilesize < iBlocksize Then iBlocksize = iFilesize 'Randomize initialisieren mit der Zeit wie lange Windows schon läuft Call Randomize(GetTickCount) 'Schleife für iLoops For i = 1 To iLoops fShredd ...

Verfasst am: 19.06.2009, 12:28 Aufrufe: 1011

Verfasst am: 18.06.2009, 12:51 Aufrufe: 898

Visual Basic: [code]Option ExplicitPrivate Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Declare Funct ...

Verfasst am: 18.06.2009, 12:05 Aufrufe: 824

Verfasst am: 18.06.2009, 12:03 Aufrufe: 2008

(Verkürzter Pfad)Visual Basic: [code]Private Declare Function GetShortPathname Lib "kernel32" Alias "GetShortPathNameA" (ByVal strLongPath As String, ByVal strShortPath As String, ByVal intBufferLen As Integer) As IntegerPublic Function GetShortname(ByVal LongPathName As String) As StringDim strShortName As String, iLen As IntegeriLen = GetShortPathname(LongPathName, strShortName, 0)strShortName = Space(iLen - 1)Call ...

Verfasst am: 18.06.2009, 12:00 Aufrufe: 1011

Verfasst am: 15.06.2009, 18:56 Aufrufe: 1124

... = CutString("AlterString", "ZuEntfernenderString")Anmerkung: Diese Funktion ist nicht besonders gut geworden, da man sie nur benutzen kann, wenn ein String nur an einer Stelle des Strings vohanden ist. Die Funktion dient nur zur Erläuterung, gut benutzen kann man sie nicht unbedingt.Ruft man eine Funktion auf, die keinen Rückgabewert ausgibt, sondern einen Codeabschnitt,so benutzt man Call ...

Verfasst am: 15.06.2009, 12:35 Aufrufe: 2647

Kommt also auf die Situation an, was man braucht.5. Kopieren Die meisten von euch kennen wahrscheinlich die Funktion "FileCopy" von VB6 und das selbe gibt es auch bei dem FSO.Nur das man hier noch angeben kann ob eine vorhandene Datei überschrieben werden soll oder nicht.Syntax:Call FSO.CopyFile(Source, Destination, OverWriteFiles)Natürlich könnt ihr das auch ohne Klammern und Call schreiben.(.CopyFile)Wir nu ...

Verfasst am: 15.06.2009, 12:29 Aufrufe: 1236

Hier ein Code zum Überprüfen der Existenz einer Datei:Public Function FileExists(ByVal Filename As String) As Boolean Dim OF As OFSTRUCT FileExists = OpenFile(Filename, OF, OF_EXIST) = 1 End FunctionDiese könnt ihr einfach in einem Modul speichern und dann so im Code aufrufen.If FileExists(NewPath) = True then Call MsgBox(“Datei ist vorhanden”&# ...

Verfasst am: 15.06.2009, 12:16 Aufrufe: 1917

CancelError = True .ShowOpen If SendFile(.FileName) Then GoTo Err: End With Exit Sub Err: Call MsgBox("Error while sending the file!", vbCritical) End SubBis jetzt sollte eigentlich alles ohne Erklärungen klar sein. Ansonsten solltet ihr euch vorher andere Tuts ansehen, die euch mehr Basiswissen ...

Verfasst am: 15.06.2009, 12:15 Aufrufe: 2133

Also, ob es in einer Textbox, Listbox oder vielleicht auf der Form sein soll.Ich mach es einfach mal auf der Form als Beispiel.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Call PopupMenu(menu) End If End SubButton 2 ist also die rechte Maustaste. Ihr könnt natürlich auch die Linke Maustaste abf ...

Verfasst am: 15.06.2009, 12:12 Aufrufe: 2713

Count If StrComp(lv.ListItems(i).Text, "David" , vbTextCompare) = 0 Then Call MsgBox("David ist an der Stelle " & i & " in der Liste.", vbInformation, "David gefunden") End If Next iWir benutzen also wieder eine Schleife um jeden Eintrag zu überprüfen.Dieses Mal läuft die Schleife nicht von 1 bis 10, sond ...

Verfasst am: 15.06.2009, 12:05 Aufrufe: 4397

NoMatch Then 'Wenn ein Eintrag gefunden wurde wird er an Text2.Text übergeben. Text2.Text = !password Else Call MsgBox("Leider nicht gefunden.") End If End WithIst im Grunde fast das selbe wie oben, außer dass wir jetzt nicht einen Eintrag erstellen sondern, da ...

Verfasst am: 12.06.2009, 17:33 Aufrufe: 540

Verfasst am: 30.05.2009, 18:51 Aufrufe: 1039

FunctionPtr)> _ Private callback As KeyboardHookDelegate Private mbBlockKeys As Boolean = True Private miKeyboardHandle As Integer = 0 Private Delegate Function KeyboardHookDelegate(ByVal Code As Integer, _ ByVal wParam As Integer, ByRef lParam As KBDLLHookStruct) As Integer Private Declare Function CallNextHookEx Lib "user32" ( _ ByVal h ...