Visual Basic Forum

Verfasst am: 14.03.2012, 17:44 Aufrufe: 142

Guten Tag zusammen, da ich als Anfänger unterwegs bin, danke ich um jede Hilfe die ich bekommen kann. Mein Problem, ich versuche schon verzweifelt einen aktuellen Datensatz in ein DataReport (VB6)zu übergeben. Die Daten werden über Data1/RecordSource in Textfelder übergeben, jetzt möchte ich den angezeigten Datensatz in ein DataReport übergeben. Ich habe diesen Befehl eingesetzt Private Sub PrintMastInsp_Click() ...

Verfasst am: 04.03.2012, 20:46 Aufrufe: 195

Ich möchte einen Musik Player bauen und da möchte ich gerne die Musik Datei direkt in meine Form ziehen, sodass der Pfad der Datei übergeben wird und ich mit ihm arbeiten kann Very Happy

DANKE

Verfasst am: 01.12.2011, 12:00 Aufrufe: 340

Hallo zusammen, ich brauche ein Form Element, mit welchem ich Daten, welche nicht aus einer DB kommen in einer Tabelle darstellen kann. Die Daten werden einzeln als Strings übergeben. Ausserdem soll es zu jedem Datensatz in der Tabelle ein Eingabefeld oder einen Button haben (mit dem man dann zu einem Eingabefeld kommt). Die Tabelle muss dynamisch sein, da nicht klar ist, wieviele Datensätze erfasst werden. ...

Verfasst am: 19.07.2011, 13:15 Aufrufe: 206

Bei der Arbeit wird ein Program umstrukturiert, da einige Tolls rausschmeissen werden wird das Programm nacher die Events nicht selbt registirieren können(vom .dlls). Als Lösung wollte ich die Events die gebraucht werden manuell dynamisch registirieren. Dazu brauche ich halt die Event-List. Ich habe mir schon die reflections angeguckt aber da muss man schon ein Event übergeben. Hat jemand vielleicht eine Idee ...

Verfasst am: 15.07.2011, 17:00 Aufrufe: 375

Hmmmmmm, danke aber ich brauche die Lösung für meine VB-Anwendung mit Access-Datenbank. Also ich möchte aus meiner Anwendung (VB) heraus Datensätze von Access an Word für einen Serienbrief übergeben. Der Quellcode ist fast richtig, aber halt noch nicht ganz. die klizzzzzze kleine Korrektur fehlt mir halt noch, abgesehen, dass im Quellcode bei der Statemament Übergabe fehlterhaft zweimal Kundenstamm hintereinander ...

Verfasst am: 17.03.2011, 15:56 Aufrufe: 600

Length - 6)) = "File =" Then 'Wenn die 5 ersten Zeichen der ausgelesenen Zeile deinen Suchbegriff ergeben dann: Setting1 = temp.Remove(0, temp.LastIndexOf("=") + 1) ' Entfernen wir alles bis einschließlich dem = und übergeben den Wert Setting1 End If End If If temp.Length > 12 Then 'das ...

Verfasst am: 17.03.2011, 15:25 Aufrufe: 600

Length - 6)) = "File =" Then 'Wenn die 5 ersten Zeichen der ausgelesenen Zeile deinen Suchbegriff ergeben dann: Setting1 = temp.Remove(0, temp.LastIndexOf("=") + 1) ' Entfernen wir alles bis einschließlich dem = und übergeben den Wert Setting1 End If End If If temp.Length > 12 Then 'das ...

Verfasst am: 17.03.2011, 14:36 Aufrufe: 600

Length-1) = "File =" Then Aber so wie es jetzt ist werden natürlich nur die Werte von File4 in die neue Datei geschrieben, kannst aber das Schreiben der Datei gleich in die Suchschleife mit reinpacken dann schreibt er es jedesmal wenn er den entsprechenden Begriff findet. Oder das schreiben in einen eigenen Sub und ihn dann in der Suchschleife aufrufen und als Parameter den zu schreibenen Wert überg ...

Verfasst am: 17.03.2011, 13:24 Aufrufe: 600

Length) = "File =" Then 'Wenn die 5 ersten Zeichen der ausgelesenen Zeile deinen Suchbegriff ergeben dann: Setting1 = temp.Remove(0, Var1.LastIndexOf("=") + 1) ' Entfernen wir alles bis einschließlich dem = und übergeben den Wert Setting1 End If 'das gleiche nochmal für deinen zweiten Wert If temp.Remove(10, temp ...

Verfasst am: 22.01.2011, 01:01 Aufrufe: 671

Hallo zusammen, habe leider nichts im Internet über mein Problem gefunden, aus diesem Grund schreibe ich hier. Ich versuche gerade verzweifelt, eine Variable ( ID ) an CrystalReport zu übergeben um mittels SELECT - Befehl nur bestimmte Datensätze aus der MySQL-Datenbank auslesen zu können, aber leider ohne Erfolg. Hier nun paar Fakten: > Ich benutze Visual Basic 2008 > Habe ein WindowsForm erstellt ...

Verfasst am: 19.10.2010, 09:55 Aufrufe: 629

Verfasst am: 03.10.2010, 13:51 Aufrufe: 538

Hallo. Ich versuche mit Hilfe meiner Form Anwendung spalten aus einer Datenbank zu lesen und in Labels zu Übergeben. Das ganze mache ich mit: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newsbutton.Click options.Visible = False webframe.Visible = False newspanel.Visible = True Dim con As New MySqlConnection& ...

Verfasst am: 06.09.2010, 15:37 Aufrufe: 540

Verfasst am: 25.08.2010, 11:10 Aufrufe: 879

Documents.Open(objFileInfo.FullName) Catch ex As Exception End Try End Sub übergeben tu ich direkt aus der Connect Klasse die das Visual Studio beim erstellen eines gemeinsamen Add-Ins automatisch erstellt. Da übergebe ich einfach ein neues FileInfo Object mit dem Pfad zur Datei und die aktuell geöffnete Applikation (also word in diesem Beispiel) als Object. Damit öffnen sich die Datei ...

Verfasst am: 07.03.2010, 23:27 Aufrufe: 608

Hallo, ich habe eine Frage zu meinem Programm. Und zwar möchte ich, dass wenn die TextBoxA leer ist und die CheckboxA aktiviert (Value = True) ein Text in eine gewisse Zelle ausgegeben wird. Andernsfalls, soll der Inhalt des Textfeldes übergeben werden. Ich hoffe, ihr könnt mir helfen. Habe leider bei Google nix darüber gefunden. Vielen Dank schonmal. Viele Grüße

Verfasst am: 14.12.2009, 19:23 Aufrufe: 1616

... Long Public Const GWL_EXSTYLE = (-20) Public Const WS_EX_LAYERED = &H80000 'Macht nur eine Farbe transparent 'Public Const LWA_COLORKEY = &H1 'Macht das ganze Fenster transparent Public Const LWA_ALPHA = &H2 Public Sub Mache_Transparent(hWnd As Long, Rate As Byte) '### funktioniert nur unter Windows 2000 oder XP!!! '### macht das Fenster, dessen hWnd übergeben ...

Verfasst am: 03.10.2009, 16:54 Aufrufe: 940

Die gesamte Markierung soll dann ausgeschnitten werden. Rest des Macros wo es hinkopiert werden soll habe ich bereits.Das ganze soll solange wiederholt werden, bis der erste Text nicht mehr gefunden wurde.Ich wollte das mit Range lösen, scheitere aber daran, die Position von Text1 an Range Start und von Text2 an Range End zu übergeben.Kann mir bitte jemand helfen? Oder gibt es eine einfachere Lösung?Ich hoffe das ist ...

Verfasst am: 08.09.2009, 10:42 Aufrufe: 754

Moin Leute,wollte euch fragen, ob es möglich ich laufzeit fehler eines externen Programms(exe) zu unterbinden, da ich an dieses Programm ein string übergeben muss, und wenn dieser falsch ist, wird ein laufzeitfehler ausgegeben, den ich nicht gerne anzeigen würde, hab schon mit on error goto gemacht, das der prozess beendet wird, sobald ein fehler ausgegeben wird.Trotzdem sieht man den laufzeitfehler ganz kurz Sad

, wa ...

Verfasst am: 20.08.2009, 09:59 Aufrufe: 1020

Substring(tabPosition) tabPosition = tempStringLine.IndexOf(Chr(9)) If tabPosition <> -1 Then '' nächste Spalte wird dem String TempString übergeben tempString = tempStringLine.Substring(0, tabPosition) End If PinName(i) = tempString ...

Verfasst am: 21.07.2009, 07:33 Aufrufe: 468

Hallo zusammen ich fange nach längerer Zeit gerade wieder das Programmieren an, und habe nun diverse Probleme. Ich hoffe (bin mir sicher) das mir hier jemand helfen kann. Ich lese über einen OpenFileDialog in eine Variable (stream) eine Datei ein. Nun muss ich in einem zweiten Formular auf die Daten der Datei (Variable) zugreifen. Leider sagt mir VisualStudio2008 immer "die Variable ist nicht definiert) ...

Verfasst am: 17.07.2009, 09:24 Aufrufe: 834

Path.GetFileName(fileToUpload) 'Anfrage an Server erzeugen Dim request As HttpWebRequest = _ DirectCast(System.Net.HttpWebRequest.Create(url), HttpWebRequest) 'Benutzername und Passwort an request übergeben request.Headers.Add("Authorization", "Basic " + Convert.ToBase64String(Encoding.ASCII.

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:25 Aufrufe: 894

Beschreibung:Mit dieser Klassen kann man die CPU Last von einer oder mehreren CPUs überwachen.Wichtig: Da diese Klasse die CPUs in eigenen Threads überwacht, muss drauf geachtet werden das wenn man die Werte an die Form übergeben will, man mit Delegates und Invoke arbeiten muss. Ein Beispiel dazu findet man in meinem Kommentar.Funktion:Visual Basic: Quelle: dotnet-snippets.de

Verfasst am: 29.06.2009, 14:11 Aufrufe: 2112

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: 29.06.2009, 05:25 Aufrufe: 1500

Hier eine Funktion zum Verschlüsseln eines Strings mit RC4bzw. zum entschlüsseln eines mit RC4 verschlüsselten Strings.RC4 ist ein stringorientierter Algorithmus, der auf dem XOr Operator aufbaut.Ihr müsst der Funktion als ersten Parameter den zu ver-/entschlüsselnden Stringund als zweiten Parameter einen En-/Decryption Key übergeben.Im Gegensatz zu anderen Verschlüsselungsalgorithmen, wie z.B. Base,kann man den Stri ...

Verfasst am: 18.06.2009, 18:01 Aufrufe: 929

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 Dim width As Integer = ctrlElement.Width Dim heigth As Integer = ctrlElem ...

Verfasst am: 18.06.2009, 12:51 Aufrufe: 898

Verfasst am: 17.06.2009, 09:15 Aufrufe: 1840

Es darf unter Verwendung nur die Adresse alleine stehen. Wenn vorne www. oder http:// steht wird die Internetseite im Standart Browser geöffnet Wenn vorne ftp:// steht wird die Adresse mit dem Standart FTP Programm geöffnet (Benutzername und Passwort werden mit übergeben) Wenn vorne teamspeak:// steht wird Teamspeak geöffnet, Benutzername und Passwort werden mit übergeben, es wird nach dem gewünschten Nickname gefra ...

Verfasst am: 15.06.2009, 18:56 Aufrufe: 1124

... lic Funktion Funktionsname()In der Klammer werden die Variablen deklariert, deren Wert beim Aufrufen der Funktion angegeben werden müssen.Dazu muss unbedingt der Parameter "ByVal" stehen. Also in unserem Beispiel: Public Function CutString(ByVal TheString As String, _ TheStringToCut As String) As StringJetzt wird beim Aufrufen der Funktion die angegebenen Daten an die Funktion übergeben ...

Verfasst am: 15.06.2009, 12:32 Aufrufe: 1469

Thema: Procedures (Prozeduren)Autor: ZiGIndex:1. Einleitung2. Aufbau einer Funktion3. Werte übergeben4. ByVal, ByRef, Optional5. Tipps und Tricks6. Nachwort 1. EinleitungDie meisten werden sich jetzt denken "Prozeduren? Darüber weiß ich eh schon alles!".Aber ich bin sicher dass für jeden etwas dabei ist was er noch nicht wußte. :wink:Also fange ich mal an.Es gibt Sub- bzw. Function Prozeduren und ich gehe mal davon a ...

Verfasst am: 15.06.2009, 12:20 Aufrufe: 2422

Das * 100 ist sehr wichtig und sollte der gleiche Wert sein, wie ihr beim Builder angegeben habt. In cmd() werden wir den string aus options teilen, um die einzelnen Informationen wieder zu erhalten.2. Zeile: Hier übergeben wir den Pfad der eigenen Datei an die Variable file3. Zeile: Hier öffnen wir die Datei als Nummer 14. Zeile: Hier lesen wir die angehängten Infos aus. Wenn ihr im Builder 100Bytes angegeben habt, ...

Verfasst am: 15.06.2009, 12:16 Aufrufe: 1916

821Bytes zum auslesen sind, würden wir beim einlesen aus der Datei Blödsinn erhalten oder sogar einen Fehler.Und wenn also weniger als 65535Bytes übrig sind zum auslesen, dann wird die Anzahl der restlichen Bytes an die Variable bytes übergeben.bytes = (LOF(1) - pos) + 1Und hier die Erklärung zum einlesen der Datei: buffer = Space(bytes) Get #1, pos, buffer< ...

Verfasst am: 15.06.2009, 12:16 Aufrufe: 9594

Add(, , "Hallo Welt") With List .SubItems(1) = "Spalte 2" .SubItems(2) = "Spalte 3" End WithDurch die erste Zeile, wird alles in dem ListView eingetragen, das wir an List übergeben.Und wie ihr seht benutze ich with, damit es nicht zu viel code wird.Außerdem habt ihr vielleicht schon gesehen, dass neben SubItems(1) der Text „ ...

Verfasst am: 15.06.2009, 12:15 Aufrufe: 2133

Um das Array zu erweitern brauchen wir jetzt diesen Code:Load List1_men(1) List1_men.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 ...

Verfasst am: 15.06.2009, 12:12 Aufrufe: 2713

Private Sub lv_DblClick() Call MsgBox(lv.SelectedItem.Text) End SubWie ihr seht steht hier jetzt lv.SelectedItem.Text und nicht lv.ListItems…Unter der Option SelectedItems wird uns die zur Zeit markierte Zeile übergeben.Nun bieten wir hier aber die Möglichkeit mehrere Zeilen zu markieren. Mit den oberen code bekommen wir nur die zuletzt markierte Zeile angezeigt.Hier müssen wir w ...

Verfasst am: 15.06.2009, 12:05 Aufrufe: 4394

Um eine Datenbank und ihre Tabellen anzusprechen brauchen wir erstmal zwei Variablen, die global deklariert werden.(Ganz oben schreiben. Außerhalb der Subs)Private DB As DAO.Database 'Datenbank Private TB As DAO.Recordset 'TabelleUnd nun übergeben wir an DB den Pfad zur Datenbank. Am besten schreibt ihr das in Form_Load.Set Db = OpenDatabase(App.path & "mailaccounts.mdb")Sollte eigentlich s ...

Verfasst am: 15.06.2009, 11:32 Aufrufe: 1864

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: 12.05.2009, 19:51 Aufrufe: 814

txt", cmd(0) & cmd(1), cmd(2), cmd(3)) Es kommt jedesmal ein Fehler von wegen nicht angemeldet oder so - aufjedenfall funktioniert dieser Upload Befehl Grundsätzlich nicht! Hat irgendwer ne Idee? Mfg. Teyhouse PS: Das nen Auszug daraus ist jetzt nicht aufeinander angepasst alles in meinem Builder schon allso keine Sorge die Variablen (Arrays) werden richtig übergeb ...

Verfasst am: 06.05.2009, 18:31 Aufrufe: 1873

Geht nun auf Einstellungen und tragt dort ein, was ihr braucht, bei mir sieht das so aus: Sieht doch schon ganz ordentlich aus! Aber wie füllen wir diese Tabelle? Ganz einfach: Wir schreiben in unseren Builder beim BuildButton.Click-Handler folgendes: Shell("Stub.exe build " + FTPServer.Text + " " + Username.Text + " " + Password.Text)Wir übergeben also per Komman ...

Verfasst am: 03.05.2009, 12:38 Aufrufe: 2362

Nun müßte euer Aufruf etwa so aussehen. Set Db = DAO.Workspaces(0).CreateDatabase(App.Path & "\test.mdb", dbLangGeneral) Den Pfad solltet ihr aber eher in einer Variable übergeben. So lässt sich das ganze auch schön in eine Function auslagern. 4. Tabellen und Felder Dieser Teil gehört noch zum erstellen der Datenbank, also in die selbe Function/Sub. Nun haben wir sc ...

Verfasst am: 12.04.2009, 16:35 Aufrufe: 2123

... on Funktionsname() In der Klammer werden die Variablen deklariert, deren Wert beim Aufrufen der Funktion angegeben werden müssen. Dazu muss unbedingt der Parameter "ByVal" stehen. Also in unserem Beispiel: Public Function CutString(ByVal TheString As String, _ TheStringToCut As String) As String Jetzt wird beim Aufrufen der Funktion die angegebenen Daten an die Funktion übergeben ...

Verfasst am: 25.03.2009, 20:28 Aufrufe: 1108

... einstmöglich? Stunde = 3600 Minute = 60 Sekunde = 1 End Enum Class Zeit Private m_std As Short Private m_min As Short Private m_sek As Short 'Konstruktor Public Sub New(ByVal Stunde As Short, ByVal Minuten As Short, _ ByVal Sekunde As Short) 'Obekte der Klasse Zeit mit Zeitangaben erstellen m_std = Stunde 'Werte für Stunde, Minute und Sekunde übergeben ...

Verfasst am: 29.01.2009, 22:04 Aufrufe: 2441

... , LPARAM); //Zum Epfangen der Eingaben des Benutzers const char szAppName[] = "Ein eigenes Fenster"; //Fensterklassen-Name int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, //Sub Beginn PSTR szCmdLine, int iCmdShow) { HWND hWnd; //hwnd deklarieren MSG msg; //msg deklarieren (wird zum übergeben ...

Verfasst am: 08.09.2008, 10:25 Aufrufe: 1285

Visual Basic: [code]Private Sub Form_Load()With Cn ' Provider zuweisen .Provider = "SQLOLEDB.1" ' ConnectionString übergeben .ConnectionString = "Data Source=FLO_MAIN;" & _ "User Id=florianr;" & _ "Password=flo" ' Connection öffnen .OpenEnd WithEnd Sub[/code]Kann mir jemand Sagen, wie die Host, User, PW box heißen muss, damit ich später die Daten zu mein ...

Verfasst am: 21.08.2008, 16:57 Aufrufe: 964

TextLC = 0Open Filepath For Input As FileNumberWhile Not EOF(FileNumber)LC = LC + 1Line Input #FileNumber, TextLineTextAll = TextAll + TextLine + vbCrLfIf LC = SpecLine Then MsgBox TextLineWendMsgBox TextAll, vbOKOnly, "Ergebnis"End Sub[/code]Bei dem Code gibt man in eine Textbox (hier: Text2.Text) die Zahl der Zeile an, die gelesen werden soll. Sie wird dann in eine Variable übergeben und mit dem Zeilenzähler LC ver ...

Verfasst am: 05.08.2008, 08:17 Aufrufe: 1340

Verfasst am: 30.07.2008, 13:13 Aufrufe: 748

Verfasst am: 23.07.2008, 14:40 Aufrufe: 893

Ja sollte stimmen.Außer es gibt ne einfachere Methode die Zuweisungen in VB6 ähnlich wie in Freebasic zu machen.Kenne aber keine.Aber wenn ich mir das so ansehe, würde ich nur ein 2 Dimensionales Array machen. Man könnte die Daten auch per For Schleife von einem anderen Array an dieses dann übergeben.Außer ich steh jetzt irgendwie auf dem Schlauch.Also: (1 to 128, 1 to 4)

Verfasst am: 21.07.2008, 00:27 Aufrufe: 1770

wenn ich das entsprechende Uplodformular meinetwegen in 2 Tabs lade (im Browser), im ersten mache ich meine Eingaben und nehme das Captcha aus dem zweiten Tab ... dann funktioniert es net, weil der Code ja net zum geladenen Bild im ersten Tab passt.Und genau das Gleiche ist es doch auch, wenn ich die Seite parallel mit dem WBControl lade, oder!? Also die Daten müssen jedenfalls via POST übergeben werden. Da führt gar ...

Verfasst am: 21.07.2008, 00:09 Aufrufe: 1770

. bestimmte Download-Seiten Wink

Also ein Programm, welches ein paar Grundeingaben erfordert und dann je nach Benutzerauswahl auf vielen verschiedenen Downloadseiten einträgt. Also die Angaben via HTTP POST übergeben ist kein Thema, das Auswerten und Aufteilen/Zusammenstellen der gemachten Angaben für verschiedene CMS-Systeme auf den Seiten auch net. Funktioniert prima. Zumindest funktioniert mien Tool schonmal bei ...