Visual Basic Forum

Verfasst am: 04.01.2012, 10:13 Aufrufe: 146

Hi zusammen, ich versuche gerade, ein .dll Library in meiner Klasse zu nutzen. Das Projekt ist eine WPF Browseranwendung. Darin habe ich eine Klasse erstellt und meine Library hinzugefügt. Der Import der .dll funktioniert. Allerdings kann das TDConnection Objekt nicht erstellt werden. Wenn ich diese Zeile auskommentiere, funkioniert es. Imports TDAPIOLELib Public Class QCConnection Public Sub getC ...

Verfasst am: 19.10.2011, 09:48 Aufrufe: 337

Hallo, ich hatte einen funktionierenden Code. Diesen habe ich dann in einen BackgroundWorker gesteckt, da er etwas zeit in anspruch nimmt und ich einen progressbar aktualisieren möchte. Daraufhin funktioniert das erstellen von Zedgraph.PointPairList nicht mehr. Imports Zedgraph ist drin ... der code lässt sich auch ausführen, doch kommt dann eine SteckOverflowException beim erstellen einer New Zedgraph.Point ...

Verfasst am: 10.06.2011, 18:41 Aufrufe: 371

Hallo... Ich bin neu hier und frage dann gleich mal los. Mein Problem: Habe ein Programm erstellt und wollte jetzt automatische Updates einbauen. Also Youtube aufrufen und mal nen Tutorial reinziehen. Also alles Programmiert und erstmal gefreut Ich habe eine html-Datei mit dem Inhalt 3.0 auf meinen htp-Server hochgeladen:http://wh4ude.wh.funpic.de/chv.html so weit ist ja noch alles schön und gut. Der Brow ...

Verfasst am: 06.02.2011, 10:05 Aufrufe: 401

Dies ist hier mein erster Beitrag, und ich möchte gleich anmerken, daß ich mich nach dem Durchlesen diverser VB.NET-Büchern das erste Mal in die Praxis begebe. Daher hoffe ich, daß meine Frage nicht allzu trivial klingt. VB.NET in der Professional-Version 2008: Ich habe erfolgreich über die WSDL eines Webservice, diesen Webservice angebunden. DotNet erzeugte mir automatisch dazugehörigen Code und ermöglicht mir ...

Verfasst am: 04.02.2011, 19:12 Aufrufe: 928

Erstmal: Kompliment, noch nie ging eine Foren-Anmeldung so schnell und problemlos! Ich hoffe, ich werde dem Forum ebenso wenig Probleme bereiten und die User hier nicht mit dämlichen Fragen nerven. Wink

Zur Sache: Ich hab vor kurzem angefangen, mich ein wenig mit Programmierung zu beschäftigen. Jetzt bin ich gerade, vor allem für Übungszwecke, dabei, einen Charaktereditor für ein wenig bekanntes Rollenspiel zu s ...

Verfasst am: 31.12.2010, 13:46 Aufrufe: 638

Hi hab mal ne Frage wie ich das mit der checkbox hinkrieg hab shcon alles bis auf die beiden checkboxen http://www.spin.de bei der Registrierung bin so weit gekommen bis jz funzt auch alles aber wie gesagt brauch nur noch die beiden checkboxen besaetigen aber keine ahnung wie hab schon ganze zeit gegoogelt aber nichts gefunden Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Eve ...

Verfasst am: 25.11.2010, 17:50 Aufrufe: 638

Hi hab mal ne Frage wie ich das mit der checkbox hinkrieg hab shcon alles bis auf die beiden checkboxen http://www.spin.de bei der Registrierung bin so weit gekommen bis jz funzt auch alles aber wie gesagt brauch nur noch die beiden checkboxen besaetigen aber keine ahnung wie hab schon ganze zeit gegoogelt aber nichts gefunden Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Eve ...

Verfasst am: 07.11.2010, 12:42 Aufrufe: 543

Jetzt habe ich doch noch eine weitere Frage dazu: Mein Code zum Versenden einer Datei über ein html Formular mit VB sieht wie folgt aus: Private Sub cmdUpload_Click() Dim aPostData() As Byte Dim vPostData As Variant Dim vUrl As Variant Dim vHeaders As Variant Dim strText As String Dim strContentHeader As String Dim strBody As String Dim nFile As Integer Me.txtFile1.Text = "D& ...

Verfasst am: 06.03.2010, 15:58 Aufrufe: 1265

Hallo, ich komme mit folgender Anforderung nicht (mehr) weiter : 1.) Ich habe eine Access-2007 Datenbank mit vielen Tabellen (und vielen Spalten) 2.) Diese möchte ich mit einem VB.NET Modul zunächst füllen ...aber : Dim GDb As DataSet = DataSetFromAccess("Game", xmla_path) 'DataSetFromAccess Modul hier erst mal nicht relevant Dim ObjectInfo As DataTable = GDb.Tables("tbl ...

Verfasst am: 07.11.2009, 11:28 Aufrufe: 1444

... Hook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As LongPublic Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As IntegerPublic Type KBDLLHOOKSTRUCT vkCode As Long scanCode As Long flags As Long time As Long dwExtraInfo As LongEnd Type ...

Verfasst am: 28.09.2009, 17:03 Aufrufe: 835

Hallo zusammen, ich bin neu hier da ich vor einem Problem stehe mit dem ich mich nun schon seit Tagen durch Inet kämpfe. Ich möchte mehrere große Textdateien in ein Datatable schreiben und dann an den Daten diverse Berechnungen durchführen. Im moment bin ich noch dabei eine einzige Textdatei einzulesen. Ich gehe dabei aber immernoch über ein normales array. Die Textdateien sehen folgendermassen aus: Kunden ...

Verfasst am: 18.07.2009, 15:35 Aufrufe: 1300

Mein Problem ist etwas komisch und ich weiß auch nicht wirklich ob ihr mir dabei helfen könnt. Ich Programmiere zurezit einen "Webproxy-Layer klicker". Über ein Webbrowser element rufe ich die Seite auf vorher lösche ich immer die cockies und den cache und sezte einen neuen Proxy. Nun über den Proxy lädt das Programm halt meine Seite und nach 3,5 sek kommt der Layer reingefolgen z.b von Layer ADS .de ...

Verfasst am: 19.06.2009, 19:00 Aufrufe: 1715

abzubrechenEnd TypePublic fShredder As tOptionsPublic Function DestroyFile(ByVal sFilepath As String, Optional ByVal iLoops As Integer = 1, Optional ByVal iBlocksize As Long = 1048576) As BooleanOn Error GoTo Err:'DeklarationenDim ff As IntegerDim sBuffer As StringDim i As Long, iFilesize As Long, iByteCount As LongDim nBlocksize As Long'Überprüfen ob es eine Datei ist und existiertIf IsFile(sFilepath) And Not fShred ...

Verfasst am: 18.06.2009, 12:00 Aufrufe: 829

... lt;br />Const REG_DWORD_BIG_ENDIAN = 5 Const REG_LINK = 6 Const REG_MULTI_SZ = 7 Const REG_RESOURCE_LIST = 8 Const REG_FULL_RESOURCE_DESCRIPTOR = 9 Const REG_RESOURCE_REQUIREMENTS_LIST = 10 'Strukturen Type Time LowTime As Long HighTime As Long End Type ...

Verfasst am: 18.06.2009, 11:51 Aufrufe: 831

... r32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Declare Sub CopyMemory2 Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, Source As Any, ByVal Length As Long)Private Type POINTAPI x As Long y As LongEnd Type ...

Verfasst am: 18.06.2009, 11:03 Aufrufe: 1093

Verfasst am: 15.06.2009, 11:54 Aufrufe: 933

Thema: Types nutzenAutor: exe-cuteHier erleutere ich euch das arbeitem mit einem Type.Der Type:Private Type Test FormWidth As Long StartTime As String End Type Dim t As TestDieser Type beinhaltet 2 Variablen. Einen Long & einen string.Private Sub Form_Load() t.

Verfasst am: 15.06.2009, 11:29 Aufrufe: 1034

Private Const OF_EXIST = &H4000 Private Const OFS_MAXPATHNAME = 128 Private Type OFSTRUCT cBytes As Byte fFixedDisk As Byte nErrCode As Integer Reserved1 As Integer Reserved2 As Integer szPathName(OFS_MAXPATHNAME) As Byte End TypeMit diesen Apis (OpenFile und DeleteFile) können wir jetzt ohne Probleme auf die ve ...

Verfasst am: 17.05.2009, 11:07 Aufrufe: 687

Hallo, Kann mir jemand helfen? Ich möchte MP3 Dateien aus den ressourcen abspielen. Ich habe es so versucht: Public Class Form1 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpszCommand As String, ByVal lpszReturnString As String, ByVal cchReturnLength As Long, ByVal hwndCallback As Long) As Long Private Sub Form1_FormClosing(ByV ...

Verfasst am: 03.05.2009, 11:38 Aufrufe: 2107

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: 13.04.2009, 13:38 Aufrufe: 2002

... ;H80000000 Private Const GENERIC_WRITE = &H40000000 Private Const OPEN_EXISTING = 3 Private Const TH32CS_SNAPPROCESS = &H2 Private Const MAX_PATH As Long = 260 Private Type IDEREGS bFeaturesReg As Byte bSectorCountReg As Byte bSectorNumberReg As Byte bCylLowReg As Byte bCylHighReg As Byte bDriveHeadReg As Byte bCommandReg As Byte bReserved As Byte End Type ...

Verfasst am: 06.02.2009, 17:47 Aufrufe: 1944

... tentypen Const REG_NONE = 0 Const REG_SZ = 1 Const REG_EXPAND_SZ = 2 Const REG_BINARY = 3 Const REG_DWORD = 4 Const REG_DWORD_LITTLE_ENDIAN = 4 Const REG_DWORD_BIG_ENDIAN = 5 Const REG_LINK = 6 Const REG_MULTI_SZ = 7 Const REG_RESOURCE_LIST = 8 Const REG_FULL_RESOURCE_DESCRIPTOR = 9 Const REG_RESOURCE_REQUIREMENTS_LIST = 10 'Strukturen Type Time LowTime As Long HighTime As Long End Type ...

Verfasst am: 04.09.2008, 18:44 Aufrufe: 825

Modul:Visual Basic: [code]Option Explicit' Windows-Version' für den Aufruf der GetVersionEx-FunktionPrivate Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128End TypePrivate Declare Function GetVersionEx Lib "kernel32" _ Alias "GetVersionExA" (lpVersionInformation As _ OSVERSIONINFO) As Long'Syste ...

Verfasst am: 01.09.2008, 16:15 Aufrufe: 1689

... t;br /> Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type ...

Verfasst am: 04.08.2008, 12:12 Aufrufe: 1655

Verfasst am: 30.07.2008, 12:08 Aufrufe: 700

... ei zu fischen:Visual Basic: [code]Option Explicit ' Info-StrukturPrivate Type BitmapHeaderA KennzeichenDerBitmapDatei As Integer DateigrößeInByte As Long ReserviertA As Integer ReserviertB As Integer OffsetDesErstenGrafikbytes As Long Strukturgröße As Long BreiteInPixel As Long HöheInPixel As Long Farbebenen As Integer FarbtiefeInBit As Integer Komnpressionstyp As Long BildgrößeInBytes As LongEnd Type ...

Verfasst am: 28.07.2008, 18:43 Aufrufe: 958

Verfasst am: 28.07.2008, 17:51 Aufrufe: 958

Verfasst am: 28.07.2008, 16:54 Aufrufe: 958

Visual Basic: das is das rautezeichen über der textbox (das 2. von rechts)

Verfasst am: 18.07.2008, 19:36 Aufrufe: 792

C:PROGRA~1MOZILL~1in C:PROGRAMMEMOZILLAumwandelnVisual Basic: [code]Option Explicit Public Const MAXPATH As Long = 260 Public Type FILETIME dwLowDateTime As Long dwHighDateTime As LongEnd Type Public Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFi ...

Verfasst am: 28.06.2008, 21:11 Aufrufe: 1666

Verfasst am: 27.05.2008, 17:19 Aufrufe: 1471

... c: [code]Option Explicit' alle benötigten API-DeklarationenPublic Declare Sub keybd_event Lib "user32" _ (ByVal bVk As Byte, ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Public Const KEYEVENTF_KEYUP = &H2Public Const VK_LWIN = &H5BPublic Type NOTIFYICONDATA cbSize As Long hWnd As Long uId As Long uFlags As Long uCallBackMessage As Long hIcon As Long szTip As String * 64End Type ...

Verfasst am: 25.05.2008, 11:35 Aufrufe: 1676

... ule As Long) As LongPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes As Long)Private mlngParameters() As Long 'list of parametersPrivate mlngAddress As Long 'address of function to callPrivate mbytCode() As Byte 'buffer for assembly codePrivate mlngCP As Long 'used to keep track of latest byte added to codePrivate Type xbyte arr() As ByteEnd Type ...

Verfasst am: 23.05.2008, 14:52 Aufrufe: 1242

(c0re;2704)Der Typ ist dieser:Visual Basic: Danke für die Übersetzung, ich hatte es ziemlich ähnlich und bin auch auf den zitierten Teil im Internet gestoßen nur haut das nicht so hin. Also entweder weiß ich nicht wo diese Methode (bin mir nicht mal sicher ob´s eine ist) rein soll, oder das ist nicht für VB .Net gesehen... Abgesehen davon, dass Private Type laut meinem Compiler nicht mehr unterstützt wird und ich sta ...

Verfasst am: 22.05.2008, 20:16 Aufrufe: 1242

Der Typ ist dieser:Visual Basic: // Edit //Falls du Probleme mit den Datentypen hast, nimm Long statt DWORD und HANDLE und String statt Char. // Edit //Ich übersetze die Funktion eben für dich. Smile

Visual Basic: [code]Function GetModuleBaseAddress(ByVal iProcId As Long, ByVal DLLName As String) As Long Dim hSnap As Long Dim xModule As MODULEENTRY32 hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPMODUL ...

Verfasst am: 06.05.2008, 16:18 Aufrufe: 1068

... SUITE_ENTERPRISE As Long = &H2 ' der alte Standard Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type ...

Verfasst am: 03.05.2008, 15:41 Aufrufe: 1239

Verfasst am: 21.04.2008, 18:54 Aufrufe: 2225

abzubrechen End Type Public fShredder As tOptions Public Function DestroyFile(ByVal sFilepath As String, Optional ByVal iLoops As Integer = 1, Optional ByVal iBlocksize As Long = 1048576) As Boolean On Error GoTo Err: 'Deklarationen Dim ff As Integer Dim sBuffer As String Dim i As Long, iFilesize As Long, iByteCount As Long Dim nBlocksize As Long 'Überprüfen ob es eine Datei ist und exis ...

Verfasst am: 20.04.2008, 12:08 Aufrufe: 1450

... ng GlblcntUsage As Long ProccntUsage As Long modBaseAddr As Long modBaseSize As Long hModule As Long szModule As String * 256 szExePath As String * 260 End Type ...

Verfasst am: 17.04.2008, 11:37 Aufrufe: 1923

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: 11.04.2008, 19:36 Aufrufe: 816

Verfasst am: 07.04.2008, 08:57 Aufrufe: 802

Der Button (hier eine Picturebox) wird naturlich auch angepasst: x-Pos = Formularbreite - Pictureboxbreite y-Pos = Formularhöhe - Pictureboxhöhe ' 1 Picturebox, unten rechts angeordnet Option Explicit ' PointAPI Private Type POINTAPI X As Long Y As Long End Type ' API Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long Priva ...

Verfasst am: 11.03.2008, 18:46 Aufrufe: 1004

benutz dieses modul: '###modIniZugriff Option Explicit ' Private Type SettingPair ' ValName As String ' Value As String ' End Type ' Einen Wert aus einer INI Datei lesen Public Function GetIniValue(ByVal File As String, ByVal Section As String, ByVal ValName As String) As Variant Dim temp As String Dim actSection As String Dim ff As Integer On Error GoTo ErrOut ...

Verfasst am: 29.02.2008, 21:20 Aufrufe: 1667

bRevision As Byte 'Binary driver revision bReserved As Byte 'Not used bIDEDeviceMap As Byte 'Bit map of IDE devices fCapabilities As Long 'Bit mask of driver capabilities dwReserved(3) As Long 'For future use End Type 'IDE registers Private Type IDEREGS bFeaturesReg As Byte 'Used for specifying SMART "commands" bSectorCountReg As Byte 'IDE sector c ...

Verfasst am: 29.02.2008, 21:12 Aufrufe: 1209

Eigenschaft 2. Typen erstellen Zunächst braucht ihr ein Modul, dass ihr für die Typen verwenden wollt. Typen beginnen mit einem Public Type Name und enden mit End Type Dazwischen könnt ihr die Eigenschaften deklarieren, wie z.B. blub As String Unser bisheriger Code lautet also: Public Type Name blub As String End Type Die Liste der Eigenschaften könnt ihr natürlich beliebig weit erwe ...

Verfasst am: 24.02.2008, 21:11 Aufrufe: 1589

Hier erleutere ich euch das arbeitem mit einem Type. Der Type: Private Type Test FormWidth As Long StartTime As String End Type Dim t As Test Dieser Type beinhaltet 2 Variablen. Einen Long & einen string. Private Sub Form_Load() t.FormWidth = Me.Width t.StartTime = Now End Sub Beim Laden der form derwem dem type nun werte zugewiesen. Diese koennen wir zum beisp ...

Verfasst am: 18.02.2008, 15:03 Aufrufe: 583

... n Public Declare Sub keybd_event Lib "user32" _ (ByVal bVk As Byte, ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const KEYEVENTF_KEYUP = &H2 Public Const VK_LWIN = &H5B Public Type NOTIFYICONDATA cbSize As Long hWnd As Long uId As Long uFlags As Long uCallBackMessage As Long hIcon As Long szTip As String * 64 End Type ...

Verfasst am: 16.02.2008, 17:49 Aufrufe: 920

... Private Type NCB ncb_command As Byte ncb_retcode As Byte ncb_lsn As Byte ncb_num As Byte ncb_buffer As Long ncb_length As Integer ncb_callname As String * NCBNAMSZ ncb_name As String * NCBNAMSZ ncb_rto As Byte ncb_sto As Byte ncb_post As Long ncb_lana_num As Byte ncb_cmd_cplt As Byte ncb_reserve(9) As Byte ' Reserved, must be 0 ncb_event As Long End Type ...

Verfasst am: 20.01.2008, 14:19 Aufrufe: 581

... al dwNewLong As Long) As Long Private Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Declare Sub CopyMemory2 Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, Source As Any, ByVal Length As Long) Private Type POINTAPI x As Long y As Long End Type ...

Verfasst am: 07.01.2008, 20:52 Aufrufe: 2483

Hatte vor zwei Wochen auch mal Musik in mein Projekt eingefügt, hatte mit auch überlegt ein tutorial zu verfassen. Rausch war schneller Wink

Ist ein gutes Tutorial. @Devil234 Ich hatte in meinem Programm eine mp3 - Datei in den Resourcen. Da sah das ganze so aus. Private Declare Function mciSendString Lib "winmm.dll" _ Alias "mciSendStringA" (ByVal lpszCommand As String, _ ...