Visual Basic Forum

Verfasst am: 06.09.2010, 15:37 Aufrufe: 541

Verfasst am: 14.12.2009, 19:23 Aufrufe: 1617

Also wenn ich den Client völlig transparentz mache und cmdConect In den form_load verschiebe, sehe ich nichts als server, also sobald was transparentz ist sehe ich nichts als server. Private Sub Form_Load() Dim lpszName As String * 100 Dim lpszVer As String * 100 Dim Caps As CAPDRIVERCAPS Calidad = 75 capGetDriverDescriptionA 0, lpszName, 100, lpszVer, 100 '// Retrie ...

Verfasst am: 15.07.2009, 08:54 Aufrufe: 1003

Hallo, ich möchte eine Funktion schreiben mit der ich nachschaue welcher RadioButton ausgewählt wurde und dem entsprechend soll dann eine Zahl übergeben werden. Leider weiß ich nicht genau wie ich das anstellen soll. Mir fehlt eine Variable. Ich hoffe mir kann jemand helfen. Hier mal der Code den ich schon habe: Function Tage() As Integer Select Case [b](was müsste hier her? ...

Verfasst am: 29.06.2009, 14:11 Aufrufe: 2113

Beschreibung:Mit dieser Klasse kann man sehr leicht eine globale Hotkey funktionalität in seinem Programm einbinden.Man muss nur diese Klasse mit WithEvents deklarieren und ihr eine Form zuweisen die gesubclassed werden soll.Dann muss man nur noch ein paar eigene HotKey-Kombinationen registrieren (z.B. Strg+Alt+X) und diesemit dem Event abfragen bzw, abfangen. Dazu muss man eine eigene HotKeyID angeben um einen besti ...

Verfasst am: 18.06.2009, 18:01 Aufrufe: 929

Beschreibung:Mit dieser Funktion könnt ihr sehr leicht einen Screenshot eurer aktuellen Form oder eines einzelnen Steuerelements auf der Form erstellen. Somit lassen sich z.B. leicht Bilder einer Listview erstellen und ausdrucken.Funktion:Mit ctrlElement wird das Steuerelement übergeben, welches abgelichtet werden soll.Private Function make_screenshot(ByVal ctrlElement As Control) As Bitmap<br /> & ...

Verfasst am: 18.06.2009, 12:51 Aufrufe: 898

Ich hab mir mal gedacht ich poste euch diesen source, da es sicher einige gibt die ihn gebrauchen können.Hiermit kann man also ein Minumum und Maximum der Fenstergröße festlegen.Code in ein Modul einfügen.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 Decla ...

Verfasst am: 15.06.2009, 18:56 Aufrufe: 1124

Thema: Funktionen schreibenAutor: c0reIch erkläre euch in diesem Tutorial wie ihr Funktionen schreiben könnt. Das Ganze werde ich am Beispiel meiner "CutString"-Funktion erklären. Eine Funktion ist folgendermaßen aufgebaut: Zuerst wird der Anfang der Funktion definiert. Die Parameter "Private" oder "Public" kennzeichen, ob die Funktion im ganzen Projekt verfügbar sein soll, oder nur im Code des Formulars / Moduls / K ...

Verfasst am: 15.06.2009, 12:32 Aufrufe: 1470

Ich versuchs mal verständlich zu erklären.Ihr habt sicher schonmal bei Functions die oben genannten Bezeichnung gesehen.Beispiel:Private Function Test(ByVal nZahl as long, ByRef sBuffer as string) as Boolean<br />Test = True<br />End FunctionDurch ByVal und ByRef wird einfach bestimmt wie ein Wert an die Function übergeben wird.Wenn man nicht ByVal oder ByRef vor die Variable schreibt (so wie bei ...

Verfasst am: 15.06.2009, 12:16 Aufrufe: 1918

Thema: Winsock Datentransfer1. Einleitung2. Client - Dateiversand3. Server - Dateiempfang4. Fazit1. EinleitungNach dem Tutorial über das Winsock Array möchte ich euch in diesem Tutorial noch zeigen wie einfach es ist eine Datei per Winsock zu versenden.Viele sources die verbreitet werden sind entweder schwer zu verstehen oder nutzen die Technik jedes Byte einzeln zu versenden, was natürlich enorme Zeit braucht ...

Verfasst am: 15.06.2009, 11:32 Aufrufe: 1866

Beschreibung:Mit dieser Funktion kann man ein String (oder Integer)-Array von leeren Feldern befreien. Dabei wird das Array der Funktion übergeben und bearbeitet. Es wird sortiert, die leeren Felder ermittelt, gelöscht und danach das Array wieder auf die passende Größe reduziert. Dabei geht aber die ursprüngliche Reihenfolge der Elemente verloren.Die FunktionPrivate Function clean_Array(ByRef ar() As Stri ...

Verfasst am: 03.05.2009, 12:38 Aufrufe: 2362

Thema: Datenbank per Laufzeit erstellen Autor: ZiG Index: 1. Einleitung 2. Deklarationen 3. Datenbank erstellen 4. Tabellen und Felder 5. Index erstellen 6. Datenbank öffnen 7. Passwortschutz 1. Einleitung Hallo alle miteinander. Hab doch mal wieder Lust auf tutorials schreiben und hab mir gedacht, ich werde euch mal beschreiben wie man eine Datenbank per Laufzeit erstellen kann. Ist ja nicht se ...

Verfasst am: 12.04.2009, 16:35 Aufrufe: 2125

Ich erkläre euch in diesem Tutorial wie ihr Funktionen schreiben könnt. Das Ganze werde ich am Beispiel meiner "CutString"-Funktion erklären. Eine Funktion ist folgendermaßen aufgebaut: Zuerst wird der Anfang der Funktion definiert. Die Parameter "Private" oder "Public" kennzeichen, ob die Funktion im ganzen Projekt verfügbar sein soll, oder nur im Code des Formulars / Moduls / K ...

Verfasst am: 25.03.2009, 20:28 Aufrufe: 1108

Hallo zusammen, habe einen Code geschrieben, der zuerst die Standardzeit (siehe Sub Main()) 10:24:36 anzeigen soll (Das funktioniert auch). Anschließend soll er 50 Minuten und danach 135 Sekunden hinzu addieren. Dazu muss ich eine Enumeration deklarieren, die ich später der Einheiten wegen zum Rechnen benutze. Außerdem muss ich einen Konstruktor definieren, der die Werte für Stunde, Minute und Sekunde übergibt (A ...

Verfasst am: 04.07.2008, 16:06 Aufrufe: 3168

Willkommen zu Meinen 3 Tutorial :DHeute möchte Ich euch zeigen wie Mann Text in die dllLaden tut, und wie Mann denn Text dann in der Form abfangen kannDll SchreibenExe SchreibenVorteile:http://msdn.microsoft.com/de-de/library/dtba4t8b(VS.80).aspx 1. Als erstes Startet ihr ein Neues AktiveX-Dll Projekt (Sieht Mann im 1 AktiveX-Dll Tutorial) Jetzt macht ihr unter dem „Projekt Explorer“ Rechtsklick ...

Verfasst am: 08.06.2008, 15:26 Aufrufe: 4170

Da hier einige "Probleme" bei einigen Web-Geschichten mit dem Webbrowser haben, zeige ich euch mal wie man mit der HTTPWebRequest-Klasse arbeitet. Das Arbeiten mit dem Webbrowser mag zwar für einige Sachen sehr bequem und einfach sein, es ist irgenwie immer eine Hilfslösung. Will man dann Daten per POST schicken, sieht man beim Webbrowser alt aus.Naja, erst mal was einfaches, lassen wir uns einfach mal den Quelltext ...

Verfasst am: 17.04.2008, 12:37 Aufrufe: 2097

Thema: Datenbank per Laufzeit erstellenAutor:ZiGIndex:1. Einleitung2. Deklarationen3. Datenbank erstellen4. Tabellen und Felder5. Index erstellen6. Datenbank öffnen7. Passwortschutz1. EinleitungHallo alle miteinander. Hab doch mal wieder Lust auf tutorials schreiben und hab mir gedacht, ich werde euch mal beschreiben wie man eine Datenbank per Laufzeit erstellen kann.Ist ja nicht sehr schön, wenn man die Datenbank vo ...

Verfasst am: 17.04.2008, 12:04 Aufrufe: 2014

Thema: Winsock Array1. Was ist ein Winsock Array und wozu braucht man es?Ein normales Winsock werden die meisten von euch ja schon kennen, besonders wenn ihr euch das super Videotutorial von Bitchkiller angesehen habt.Wenn nicht, dann solltet ihr das zuerst tun: http://www.vb-x.org/viewtopic.php?t=685Also wozu braucht man nun ein Winsock Array?Ganz einfach. Bei einem normalen Winsock stößt man recht schnell an Grenze ...

Verfasst am: 17.03.2008, 20:28 Aufrufe: 3258

Beschreibung: Mit dieser Funktion kann man ein String (oder Integer)-Array von leeren Feldern befreien. Dabei wird das Array der Funktion übergeben und bearbeitet. Es wird sortiert, die leeren Felder ermittelt, gelöscht und danach das Array wieder auf die passende Größe reduziert. Dabei geht aber die ursprüngliche Reihenfolge der Elemente verloren. Die Funktion Private Function clean_Array(ByRef ar() ...

Verfasst am: 09.03.2008, 21:24 Aufrufe: 1018

Ich versuchs mal verständlich zu erklären. Ihr habt sicher schonmal bei Functions die oben genannten Bezeichnung gesehen. Beispiel: Private Function Test(ByVal nZahl as long, ByRef sBuffer as string) as Boolean Test = True End Function Durch ByVal und ByRef wird einfach bestimmt wie ein Wert an die Function übergeben wird. Wenn man nicht ByVal oder ByRef vor die Variable schreibt (so wie bei ...

Verfasst am: 20.01.2008, 15:19 Aufrufe: 629

Ich hab mir mal gedacht ich poste euch diesen source, da es sicher einige gibt die ihn gebrauchen können. Hiermit kann man also ein Minumum und Maximum der Fenstergröße festlegen. Code in ein Modul einfügen. Option Explicit Private Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long&# ...

Verfasst am: 04.01.2008, 22:30 Aufrufe: 2588

so jetzt zeige ich wie man musik in sein programm bringt: inhalt: - 1.ressourceneinbindung - 2.abspielen von .wav dateien - 3. .wav dateien direkt aus der ressource abspielen - 4. andere musik-files abspielen 1.Ressourceneinbindung als erstes muss ja mal mal die musik in unser programm, also binden wir sie als ressource ein: klicke auf add-ins klicke auf add-in-manager... wähle vb 6 ressourcen-editor ...

Verfasst am: 14.11.2007, 19:47 Aufrufe: 311

Die Funktion erstellst du als Public und nicht Private. Dann kannst du die Function mit dem Formnamen vorran ansprechen. Beispiel: Call Form2.Functionname() Variablen kannst du an die Form übergeben. Beispiel: Public Function Blabla(ByVal bla as string, bla2 as string) ByVal bedeuted, das der string kopiert übergeben wird und nicht nur die Adresse zum string. Aufrufen sollte dann klar sein. C ...

Verfasst am: 19.10.2007, 14:28 Aufrufe: 532

Das liegt dadran das die Funktion zwei Argumente erwartet und nicht eins. Als zweites Argument musst du die Form übergeben. Private Declare Function ShellExecute Lib _ "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal _ lpParameters As String, ByVal lpDirectory _ As String, ByVal nShowCmd As Long) As Long Public Sub I ...

Verfasst am: 18.10.2007, 15:32 Aufrufe: 249

Zu 3. Klar, erstelle dir eine eigene Form individuell nach deinen Wünschen und rufe die Form dann auf. Noch ne kleine funktion, mit der du den Ausgabetext übergeben kannst und fertig. Private function mymsgbox(byval text as string) meinebox.Lblausgabe.caption = text meinebox.show end function kA so in der Art halt aufrufen oder einbauen mymsgbox("Hallo")

Verfasst am: 08.08.2007, 17:36 Aufrufe: 1901

Thema: Winsock Datentransfer 1. Einleitung 2. Client - Dateiversand 3. Server - Dateiempfang 4. Fazit 1. Einleitung Nach dem Tutorial über das Winsock Array möchte ich euch in diesem Tutorial noch zeigen wie einfach es ist eine Datei per Winsock zu versenden. Viele sources die verbreitet werden sind entweder schwer zu verstehen oder nutzen die Technik jedes Byte einzeln zu versenden, was natürlich enorm ...

Verfasst am: 06.08.2007, 20:35 Aufrufe: 1732

Thema: Winsock Array 1. Was ist ein Winsock Array und wozu braucht man es? Ein normales Winsock werden die meisten von euch ja schon kennen, besonders wenn ihr euch das super Videotutorial von Bitchkiller angesehen habt. Wenn nicht, dann solltet ihr das zuerst tun: http://www.vb-x.org/viewtopic.php?t=685 Also wozu braucht man nun ein Winsock Array? Ganz einfach. Bei einem normalen Winsock stößt man recht ...

Verfasst am: 03.08.2007, 08:54 Aufrufe: 1987

Einige von euch kennen sicher das Programm "Sandboxie". Wenn nicht, dann seht euch mal auf deren Homepage um: Ich hab mir mal einen Weg überlegt wie man im Programm erkennen kann ob es in der Sandbox läuft oder nicht. Ein einfaches überprüfen ob Sandboxie läuft wäre denke ich nicht sinnvoll, da es ja nicht zwingend bedeuted, dass das Programm über Sandboxie gestartet wurde. Manche fragen sich vielle ...

Verfasst am: 14.06.2007, 10:27 Aufrufe: 463

Verfasst am: 03.06.2003, 09:59 Aufrufe: 318

Hallo, ich möchte in einer Funktion auf ein Objekt eines Forms zugreifen. Der Zugriff sollte aber möglichst dynamisch sein und sich auf verschiedene Forms beziehen können. Also was ich meine: Function datenzuweisung(frm As ?????) With frm .txt_id.DataField = "id_neu" .txt_sozi.DataField = "sozietaet" .txt_name.DataField = "name" .txt_str.DataField = "str" .txt_plz.DataField = "plz" .txt_ort.DataField = "ort" .txt_t ...