Visual Basic Classic - VBMagazin KnowledgeBase http://www.vb-magazin.de/KnowledgeBase/categories/154-visual-basic-classic.aspx VB-Magazin KnowledgeBase de-de Strings mit Anführungszeichen " eingeben <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" size=3>Oftmals kommt es vor, dass Sie einen Text einem String zuweisen möchten, der ein Anführungszeichen (") enthält. Da Visual Basic dieses Zeichen normalerweise als Ende des String erkennt müssen Sie das Anführungszeichen zweimal hintereinander schreiben z.B.:</FONT></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p>&nbsp;</o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN lang=EN-GB style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'; mso-ansi-language: EN-GB">Dim</SPAN><SPAN lang=EN-GB style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'; mso ... http://www.vb-magazin.de/KnowledgeBase/articles/2005/10/11/118-strings-mit-anfuehrungszeichen-eingeben.aspx Alex Bierhaus Text drehen <FONT color=#000084>Option</FONT> <FONT color=#000084>Explicit</FONT><BR><BR><BR><FONT color=#000084>Private</FONT> <FONT color=#000084>Sub</FONT> cmd_drehen_Click()<BR><BR><BR>&nbsp;&nbsp;&nbsp; <FONT color=#000084>Dim</FONT> zaehler <FONT color=#000084>As</FONT> Byte<BR><BR>&nbsp;&nbsp;&nbsp; <FONT color=#000084>For</FONT> zaehler = 1 To <FONT color=#000084>Len</FONT>(txt_Eingabe.Text)<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txt_Ausgabe.Text = txt_Ausgabe.Text &amp; Mid$(txt_Eingabe.Text, zaehler, 1) &amp; vbCrLf<BR><BR><BR>&nbsp;&nbsp;&nbsp; <FONT color=#000084>Next</FONT> zaehler<BR><BR><BR><BR><FONT color=#000084>End</FONT> <FONT color=#000084>Sub</FONT><BR><BR><FONT color=#000084>Private</FONT> <FONT color=#000084>Sub</FONT> cmd_ende_Click()<BR><BR><BR>&nbsp;&nbsp;&nbsp; <F ... http://www.vb-magazin.de/KnowledgeBase/articles/2005/08/23/115-text-drehen.aspx Alex Bierhaus Würfelgenerator <PRE><FONT color=#000084>Option</FONT> <FONT color=#000084>Explicit</FONT> <BR> <FONT color=green>'Ende Schalter , schließt das Programm</FONT><BR> <BR> <FONT color=#000084>Private</FONT> <FONT color=#000084>Sub</FONT> cmd_ende_Click()<BR> <FONT color=#000084>End</FONT><BR> <FONT color=#000084>End</FONT> <FONT color=#000084>Sub</FONT><BR><BR> <BR> <FONT color=green>'Start Schalter - erzeugt die Zufallszahl und zeigt die passenden Radiobuttons an</FONT><BR> <BR> <FONT color=#000084>Private</FONT> <FONT color=#000084>Sub</FONT> cmd_start_Click()<BR> <BR> <FONT color=#000084>Call</FONT> loeschenderwuerfelpunkte <FONT color=green>'löschen aller Würfelpunkte</FONT><BR> <BR> <FONT color=#000084>Dim</FONT> wuerfel <FONT color=#000084>As</FONT> <FONT color=#000084>Inte ... http://www.vb-magazin.de/KnowledgeBase/articles/2005/08/23/114-wuerfelgenerator.aspx Alex Bierhaus Visual Basic Tabellen <P><FONT size=4><B><FONT color=#ff0000>TastenCodes<A name=tastencodes></A></FONT></B></FONT></P> <TABLE borderColor=#333333 width="90%" align=center border=1> <TBODY> <TR> <TD><B><FONT face="Courier New, Courier, mono" size=2>Konstante</FONT></B></TD> <TD><B><FONT face="Courier New, Courier, mono" size=2>Wert</FONT></B></TD> <TD><B><FONT face="Courier New, Courier, mono" size=2>Beschreibung</FONT></B></TD></TR> <TR> <TD><FONT face="Courier New, Courier, mono" size=2>vbKeyLButton</FONT></TD> <TD><FONT face="Courier New, Courier, mono" size=2>&amp;H1</FONT></TD> <TD><FONT face="Courier New, Courier, mono" size=2>Primäre Maustaste</FONT></TD></TR> <TR> <TD><FONT face="Courier New, Courier, mono" size=2>vbKeyMButton</FONT></TD> <TD><FONT face="Courier New, Courier, mono" size=2>&a ... http://www.vb-magazin.de/KnowledgeBase/articles/2005/08/23/113-visual-basic-tabellen.aspx Alex Bierhaus WebBrowser-Grundfunktionen <P><IMG hspace=0 src="http://62.75.172.124/KnowledgeBase/Attachments/6920144c-21ab-4f12-ad84-3c9b.bmp" border=0>Zuerst fügst du über Projekt-Komponenten die 'Microsoft Internet Controls' in dein Projekt ein.</P> <P>Jetzt müsste bei deinen Controls das WebBrowser Control (siehe Bild.) zu sehen sein.</P> <P>Füge dieses in eine Leere Form ein und bringe es auf beliebige Größe.(WebBrowser1)</P> <P>Nun fügst du der Form noch einen Command-Button hinzu.(Command1)</P> <P>&nbsp;</P> <P>Grundfunktionen:</P> <P>&nbsp;</P> <P>Eine Seite aufrufen:</P> <P><FONT color=#1111bb>Private Sub</FONT> Command1_Click()<BR>WebBrowser1.Navigate ("<A href="http://www.vb-magazin.de/">www.vb-magazin.de</A>") <FONT color=#117711>'Die URL kann auch durch Text1.Text etc. ersetzt werden</FONT><BR><FONT color=#11 ... http://www.vb-magazin.de/KnowledgeBase/articles/2005/06/06/111-webbrowser-grundfunktionen.aspx Michael Roth Ursache für Unrecognized database format <P>Die DAO- Datenbankzugriffstheorie ist immer noch weit verbreitet unter Visual Basic 6 Entwicklern. Wer versucht mit DAO auf eine Access Version ab Access 2000 zuzugreifen bekommt von der VB 6 IDE folgenden Fehler geliefert: "Unrecognized database format". Das DAO Steuerelement erkennt die neueren Access Versionen einfach nicht mehr. Abhilfe schafft hierbei, falls möglich, die Access Datenbank in Access selbst zu konvertieren. Du kannst in Access unter "Extras"- "Datenbank Dienstprogramme" - "Datenbank konvertieren" die Access Version auswählen, in die deine Datenbank konvertiert werden soll. Leider sind eventuelle Änderungen nach dem Konvertieren nicht mehr möglich. Es ist zu empfehlen den Datenbankzugriff mit dem ADO- Datensteuerelement für neuere Access Versionen zu verwenden.</P> http://www.vb-magazin.de/KnowledgeBase/articles/2005/01/06/103-ursache-fuer-unrecognized-database-format.aspx Alex Bierhaus Makroskripte erstellen <P><FONT face=Arial color=#111111 size=3>Hier ein kleines Tutorial zum erstellen von Makroscripten unter Visual Basic.</FONT></P> <P><FONT face=Arial color=#111111 size=3>Um die Makros zu erstellen benötigst du die Makro.exe, die du </FONT><A href="http://www.vb-magazin.de/sektionen/downloads/FormLang.rar" target=_blank><FONT face=Arial color=#111111 size=3>hier</FONT></A><FONT face=Arial color=#111111 size=3> runterladen kannst. </FONT></P> <TABLE dir=ltr cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR><!--msnavigation--> <TD vAlign=top> <P><FONT face=Arial color=#111111>Generelle Anforderungen für das Erstellen und Ausführen von EMM - Makroskripten:</FONT></P> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0><!--msthemelist--> <TBODY> <TR> <TD vAlign=top ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/102-makroskripte-erstellen.aspx Alex Bierhaus Makrofähige Anwendung schreiben <P>Wofür? Makros in Texteditoren o.ä., eigene kleine Programmiersprachen</P> <P><U>Benötigte OCX-Dateien:</U></P> <OL> <LI>Microsoft Script Control 1.0 <LI>In diesem Beispiel: MS Rich Textbox Control 6.0 </LI></OL> <P><U>Aufbau:</U></P> <P>Auf eine Standard-Form (Form1) eine Richtextbox (RTB1), einen Commandbutton (Cmd) und ein Scriptconrol (SC) einfügen.<BR>[Die Angaben in () geben den Namen der Controls an]</P> <P><U>Einstellungen:</U> <OL> <LI>Die Angegebenen Namen festlegen <LI>Text-Eigenschaft der Richtextbox auf "" setzen <LI>Caption-Eigenschaft des Buttons auf "Makro" setzen </LI></OL> <P><U>Sourcecode:</U></P> <P><CODE>Private Sub Form_Load()<BR>SC.AddObject "RTB",RTB1<BR>End Sub</CODE><BR>Hier wird die Richtextbox mit allen Eigenschaften und Methoden in das Script ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/101-makrofaehige-anwendung-schreiben.aspx Alex Bierhaus Ini Dateien bearbeiten <P>In diesem Projekt wird gezeigt wie man mit Visual Basic .ini Dateien erstellen und bearbeiten kann.</P> <P>Zuerst erstellt du ein neues Projekt</P> <P>Form1 benennst du ihn frmMain um</P> <P>Klicke jetzt auf Projekt=&gt;Klassenmodul hinzufügen</P> <P>Gib dem KlassenModul den Namen cIniFile</P> <P>Klicke Nochmal auf Projekt und dann auf Modul hinzufügen</P> <P>Das Modul bekommt den Namen modMain</P> <P>Nun erstellst du auf frmMain folgende Controls:</P> <P>2 Commandbuttons Caption=Einstellungen speichern,Name=cmdSave || Caption=Einstellungen laden,Name=cmdGet</P> <P>2 TextBoxen Name=txt1,Text="" || Name=txt2,Text=""</P> <P>1 CheckBox Caption=z.B. übernehmen?,Value ist egal</P> <P>Zum Schluss noch 4 Labels</P> <P>Caption=Einstellung1</P> <P>Caption=Einstellung2</P> <P>Captio ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/100-ini-dateien-bearbeiten.aspx Alex Bierhaus Sounds und Sounds in Ressourcen abspielen <P align=justify><FONT face=Arial><FONT size=3><B>Wie man Sounds abspielt</B><BR>Wenn ihr auch schon immer mal eine Wave-Datei apspielen wolltet, die ihr aber nicht direkt in eurer Anwendung haben wolltet, dann gibt es für euch eine einfache Lösung:</FONT></FONT></P> <P align=justify><BR><FONT face=Arial><FONT size=3><CODE>Private Declare Function sndPlaySound Lib "winmm.dll" Alias _ <BR>"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long <BR>Sub PlayWave(WaveDatei As String)<BR>Dim PlW$<BR>PlW = sndPlaySound(WaveDatei, 1)<BR>End Sub<BR></CODE><BR>Dann könnt iher die Funktion einfach aufrufen:<BR><CODE>PlayWave ("C:\Datei.wav") </CODE><BR></FONT></FONT></P> <P align=justify><FONT face=Arial><FONT size=3><STRONG>Wie man Sound in Ressourcen abspielt<BR></STRONG>De ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/99-sounds-und-sounds-in-ressourcen-abspielen.aspx Alex Bierhaus Umschalten zwischen den Ansichten der Entwicklerumgebung Visual Basic füllt den ganzen Bildschirm aus, so man leider nicht sehen kann was gerade dahinter "passiert". Mit diesem Trick kannst&nbsp;du VB nur die wichtigsten Fenster anzeigen lassen. Gehe wie gefolgt vor: Öffne Visual Basic. Gehen dann in der Menü leiste auf Extras, dann unter den Menü Punkt <I>Optionen</I> auf Weitere. Aktiviere dann den Hacken vor SDI- Entwicklerumgebung. Nach einem Programm Neustart wurde die Ansicht geändert. http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/95-umschalten-zwischen-den-ansichten-der-entwicklerumgebung.aspx Alex Bierhaus Ändern der Schriftart im Codefenster <P align=left>Klicke&nbsp;im Menü "Extras" auf Optionen. In der nächsten Dialogbox auf das Register <I>Editorformat</I>. Dort änder die Schriftart in <I>Fixedsys</I>. Das Ergebnis ist eine deutlichere Schrift in den Codefenstern, anstelle der "Fadenschrift".</P> <P>&nbsp;</P> <P><IMG hspace=0 src="http://www.vb-magazin.net/KnowledgeBase/Attachments/cd9668f3-e93c-4dc6-b11c-b8bc.jpg" border=0></P> http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/94-aendern-der-schriftart-im-codefenster.aspx Alex Bierhaus Text in TextBox markieren bei GotFocus <P align=justify>Viele Anwendungen benutzen TextBoxen, die ihren Inhalt markieren, wenn man zum ersten mal draufklickt.</P><B>Funktion:</B> <TABLE width="90%" border=0> <TBODY> <TR> <TD bgColor=#eeeeee><PRE><FONT face="Courier New" color=#000084>Sub</FONT> SelText(TxtBx <FONT face="Courier New" color=#000084>As</FONT> Object) <FONT face="Courier New" color=#000084> If</FONT> <FONT face="Courier New" color=#000084>Not</FONT> (TypeOf TxtBx Is TextBox) <FONT face="Courier New" color=#000084>Then</FONT> <FONT face="Courier New" color=#000084>Exit</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> TxtBx.SelStart = 0 TxtBx.SelLength = <FONT face="Courier New" color=#000084>Len</FONT>(TxtBx.Text) <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#00 ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/93-text-in-textbox-markieren-bei-gotfocus.aspx Alex Bierhaus Das begehrte "Immer im Vordergrund" <CODE><PRE><FONT face="Arial, Helvetica, sans-serif" size=2>Private Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long,_<BR> ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long </FONT></PRE></CODE> <P><FONT face="Arial, Helvetica, sans-serif" size=2>Sub SetTop(hwnd As Long, Top As Boolean) <BR>If Top = True Then <BR>SetWindowPos hwnd, -1, 0, 0, 0, 0, 3 <BR>Else <BR>SetWindowPos hwnd, -2, 0, 0, 0, 0, 3 <BR>End If <BR>End Sub </FONT></P> <P><B>Beispiel:</B> </P><PRE><FONT face="Arial, Helvetica, sans-serif" size=2>Private Sub Form_Load() <BR>SetTop Me.hwnd, True <BR>End Sub </FONT></PRE> http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/92-das-begehrte-immer-im-vordergrund-.aspx Alex Bierhaus Programm vor dem Taskmanager verstecken <PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> RegisterServiceProcess Lib "Kernel32.dll" (<FONT face="Courier New" color=#000084>ByVal _ </FONT>dwProcessId <FONT face="Courier New" color=#000084>As</FONT> Long, <FONT face="Courier New" color=#000084>ByVal</FONT> dwType <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> <FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> Command1_Click() <FONT face="Courier New" color=#000084>Dim</FONT> pid&amp; pid = GetCurrentProce ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/91-programm-vor-dem-taskmanager-verstecken.aspx Alex Bierhaus Client - Server Connection mit Winsock <P align=justify>Code für den <B>Server</B>: <TABLE width="90%" border=0> <TBODY> <TR> <TD bgColor=#eeeeee> <P align=left><CODE><PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> Form_Load() Winsock1.LocalPort = 12345 <FONT face="Courier New" color=green>'Setzt den Port, dem Winsock "zuhört"</FONT> Winsock1.<FONT face="Courier New" color=#000000>Listen</FONT> <FONT face="Courier New" color=green>'Winsock hört zu</FONT> <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> <FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> Winsock1_ConnectionRequest(<FONT face="Courier New" color=#000084>ByVal</FONT> requestID <FONT face=" ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/90-client-server-connection-mit-winsock.aspx Alex Bierhaus ICQ Pager Nachricht verschicken <P align=justify>Als erstes muss ein <I>Internet Transfer Protokoll</I> (siehe Project Components) eingefügt werden</P><B>Code:</B> <TABLE width="90%" border=0> <TBODY> <TR> <TD bgColor=#eeeeee><CODE><PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> ICQ(UIN <FONT face="Courier New" color=#000084>As</FONT> String, <FONT face="Courier New" color=#000084>Name</FONT> <FONT face="Courier New" color=#000084>As</FONT> String, eMail <FONT face="Courier New" color=#000084>As</FONT> String, _ Betreff <FONT face="Courier New" color=#000084>As</FONT> String, Nachrichtentext <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>String</FONT>) <FONT face="Courier New" color=#000084>Const</FONT> ICQURL = ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/89-icq-pager-nachricht-verschicken.aspx Alex Bierhaus Mehrmaliges öffnen der Anwendung verhindern <PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> Form_Load() <FONT face="Courier New" color=#000084>If</FONT> App.PrevInstance = <FONT face="Courier New" color=#000084>True</FONT> <FONT face="Courier New" color=#000084>Then</FONT> <FONT face="Courier New" color=#000084>MsgBox</FONT> App.EXEName &amp; " bereits geöffnet" <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>Else</FONT> Form1.<FONT face="Courier New" color=#000000>Show</FONT> <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>If</FONT> <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>Sub</FONT></PRE> http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/87-mehrmaliges-oeffnen-der-anwendung-verhindern.aspx Alex Bierhaus Caption fremder Fenster ändern <PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> SendMessage Lib "user32" _ Alias "SendMessageA" (<FONT face="Courier New" color=#000084>ByVal</FONT> hWnd <FONT face="Courier New" color=#000084>As</FONT> Long, <FONT face="Courier New" color=#000084>ByVal</FONT> wMsg <FONT face="Courier New" color=#000084>As</FONT> Long, _ <FONT face="Courier New" color=#000084>ByVal</FONT> wParam <FONT face="Courier New" color=#000084>As</FONT> Long, <FONT face="Courier New" color=#000084>ByVal</FONT> lParam <FONT face="Courier New" color=#000084>As</FONT> Any) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> <FONT face="Courier New" ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/88-caption-fremder-fenster-aendern.aspx Alex Bierhaus CD-Romlaufwerksklappe öffnen/schließen <PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> mciExecute Lib "winmm.dll" (<FONT face="Courier New" color=#000084>ByVal</FONT> lpstrCommand <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>String</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> OpenTheDoor() <FONT face="Courier New" color=green>'Laufwerkstür öffnen</FONT> mciExecute "Set CDaudio door open" <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> CloseTheDoo ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/86-cd-romlaufwerksklappe-oeffnen-schliessen.aspx Alex Bierhaus Affengriff deaktivieren (Strg-Alt-Entf) <P><CODE><FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> SystemParametersInfo Lib "user32" Alias _<BR>"SystemParametersInfoA" (<FONT face="Courier New" color=#000084>ByVal</FONT> uAction <FONT face="Courier New" color=#000084>As</FONT> Long, <FONT face="Courier New" color=#000084>ByVal</FONT> uParam <FONT face="Courier New" color=#000084>As</FONT> Long, _<BR><FONT face="Courier New" color=#000084>ByVal</FONT> lpvParam <FONT face="Courier New" color=#000084>As</FONT> Any, <FONT face="Courier New" color=#000084>ByVal</FONT> fuWinIni <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT><B ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/85-affengriff-deaktivieren-strg-alt-entf-.aspx Alex Bierhaus Mauszeiger verstecken <PRE><FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> ShowCursor Lib "user32" (<FONT face="Courier New" color=#000084>ByVal</FONT> bShow <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> MouseVisible(Visible <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Boolean</FONT>) ShowCursor <FONT face="Courier New" color=#000084>IIf</FONT>(Visible, 1, 0) <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>Sub</FONT></PRE> http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/84-mauszeiger-verstecken.aspx Alex Bierhaus Freien/belegten Speicherplatz ermitteln <PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> GetDiskFreeSpaceEx Lib "kernel32" Alias _ "GetDiskFreeSpaceExA" (<FONT face="Courier New" color=#000084>ByVal</FONT> lpPathName <FONT face="Courier New" color=#000084>As</FONT> String, <FONT face="Courier New" color=#000084>ByVal</FONT> UserFree _ <FONT face="Courier New" color=#000084>As</FONT> Any, <FONT face="Courier New" color=#000084>ByVal</FONT> TotalSize <FONT face="Courier New" color=#000084>As</FONT> Any, <FONT face="Courier New" color=#000084>ByVal</FONT> TotalFree <FONT face="Courier New" color=#000084>As</FONT> Any) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FO ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/82-freien-belegten-speicherplatz-ermitteln.aspx Alex Bierhaus Objekt (z.B. Fenster) mit Maus verschieben <PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> ReleaseCapture Lib "user32" () <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> <FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> SendMessage Lib "user32" Alias "SendMessageA" (<FONT face="Courier New" color=#000084>ByVal</FONT> hwnd _ <FONT face="Courier New" color=#000084>As</FONT> Long, <FONT face="Courier New" color=#000084>ByVal</FONT> _ wMsg <FONT face="Courier New" color=#000084>As</FONT> Long, <FONT face="Courier New" color=#000084>ByVal</FONT> wParam <F ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/83-objekt-z-b-fenster-mit-maus-verschieben.aspx Alex Bierhaus DFÜ-Status ermitteln <PRE><FONT face="Courier New" color=#000084>Const</FONT> RAS_MaxEntryName = 256 <FONT face="Courier New" color=#000084>Const</FONT> RAS_MaxDeviceType = 16 <FONT face="Courier New" color=#000084>Const</FONT> RAS_MaxDeviceName = 32 <FONT face="Courier New" color=#000084>Type</FONT> RASType dwSize <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> hRasCon <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> szEntryName(RAS_MaxEntryName) <FONT face="Courier New" color=#000084>As</FONT> Byte szDeviceType(RAS_MaxDeviceType) <FONT face="Courier New" color=#000084>As</FONT> Byte szDeviceName(RAS_MaxDeviceName) <FONT face="Courier New" color=#000084>As</FONT> Byte <FONT face="Courier New" ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/81-dfue-status-ermitteln.aspx Alex Bierhaus Laufwerksnamen ermitteln <PRE><FONT face="Courier New" color=#000084>Function</FONT> VolName(Drive <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>String</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>String</FONT> S = Drive <FONT face="Courier New" color=#000084>If</FONT> <FONT face="Courier New" color=#000084>Len</FONT>(S) = 1 <FONT face="Courier New" color=#000084>Then</FONT> S = S + ":": <FONT face="Courier New" color=#000084>GoTo</FONT> fg <FONT face="Courier New" color=#000084>If</FONT> <FONT face="Courier New" color=#000084>Len</FONT>(S) = 2 <FONT face="Courier New" color=#000084>Then</FONT> S = S + "": <FONT face="Courier New" color=#000084>GoTo</FONT> fg <FONT face="Courier New" color=#000084>If</FONT> <FONT f ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/80-laufwerksnamen-ermitteln.aspx Alex Bierhaus Office-Version ermitteln <P>Mit diesem Beispiel kann man die Office Version, die auf dem PC installiert ist, ermitteln.</P> <P>&nbsp;</P><PRE><FONT face="Courier New" color=#000084>Option</FONT> <FONT face="Courier New" color=#000084>Explicit</FONT> <FONT face="Courier New" color=green>'Notwendige Api-Deklarationen für den Registry-Zugriff</FONT> <FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> RegCloseKey Lib "advapi32.dll" (<FONT face="Courier New" color=#000084>ByVal</FONT> hKey <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> <FONT face="Cou ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/79-office-version-ermitteln.aspx Alex Bierhaus Modul für Registry-Zugriff <PRE><FONT color=#000084>Mit diesem Beispiel kannst du auf die Windows Registry zugreifen.</FONT></PRE><PRE><FONT color=#000084></FONT>&nbsp;</PRE><PRE><FONT color=#000084>Option </FONT><FONT color=#000084>Explicit</FONT> <FONT color=green>'Benötigte API's:</FONT> <FONT color=#000084>Private</FONT> <FONT color=#000084>Declare</FONT> <FONT color=#000084>Function</FONT> RegQueryValueEx Lib "advapi32.dll" _ Alias "RegQueryValueExA" (<FONT color=#000084>ByVal</FONT> hKey <FONT color=#000084>As</FONT> Long, <FONT color=#000084>ByVal</FONT> _ lpValueName <FONT color=#000084>As</FONT> String, <FONT color=#000084>ByVal</FONT> lpReserved <FONT color=#000084>As</FONT> Long, _ lpType <FONT color=#000084>As</FONT> Long, lpData <FONT color=#000084>As</FONT> Any, lpcbData <FONT color=#000084>As</ ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/78-modul-fuer-registry-zugriff.aspx Alex Bierhaus Systemweit auf Tastatur-Ereignisse reagieren <TABLE width="90%" border=0><B>Beispiel:</B><BR> <TBODY> <TR> <TD bgColor=#eeeeee> <P><CODE><PRE><FONT color=#000084>Public</FONT> <FONT color=#000084>Declare</FONT> <FONT color=#000084>Function</FONT> GetAsyncKeyState Lib "user32.dll" (<FONT color=#000084>ByVal</FONT> nVirtKey <FONT color=#000084>As</FONT> <FONT color=#000084>Long</FONT>) <FONT color=#000084>As</FONT> <FONT color=#000084>Integer</FONT> <FONT color=#000084>Public</FONT> <FONT color=#000084>Const</FONT> KeyPressed <FONT color=#000084>As</FONT> <FONT color=#000084>Integer</FONT> = -32767 <FONT color=#000084>Private</FONT> <FONT color=#000084>Sub</FONT> Timer1_Timer() <FONT color=#000084>If</FONT> GetAsyncKeyState(<I>Code</I>) = KeyPressed <FONT color=#000084>Then</FONT> <FONT color=#000084>Msgbox</FONT> “Taste wu ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/77-systemweit-auf-tastatur-ereignisse-reagieren.aspx Alex Bierhaus Datei umbennenen - leicht gemacht <PRE><FONT face="Courier New" color=#000084>Mit der folgenden Funktion kannst du in Visual Basic Dateien umbennen.</FONT></PRE><PRE><FONT face="Courier New" color=#000084>Name</FONT> “C:\Test.txt” <FONT face="Courier New" color=#000084>As</FONT> “C:\Neuer Ordner\Neu.txt” </PRE> http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/76-datei-umbennenen-leicht-gemacht.aspx Alex Bierhaus Entfernung zweier Pixel berechnen <P align=justify>Du brauchst&nbsp;&nbsp;die Entfernung zwischen 2 X,Y-Koordinaten? Pythagoras hilft! Er kennt nicht die Formel "a²=b²+c²" ?</P> <P>Picture1 und Label1 in eine Form, folgenden Code in die Form stecken:</P> <TABLE width="90%" border=0> <TBODY> <TR> <TD bgColor=#eeeeee><CODE><PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> Picture1_MouseMove(Button <FONT face="Courier New" color=#000084>As</FONT> Integer, Shift <FONT face="Courier New" color=#000084>As</FONT> Integer, X <FONT face="Courier New" color=#000084>As</FONT> Single, Y <FONT face="Courier New" color=#000084>As</FONT> Single) Picture1.<FONT face="Courier New" color=#000000>Cls</FONT> <FONT face="Courier New" color=green>'Letztes Bild löschen</FONT> ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/21/75-entfernung-zweier-pixel-berechnen.aspx Alex Bierhaus