Visual Basic Forum

Verfasst am: 12.05.2012, 06:43 Aufrufe: 52

ganz einfach Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture2.BackColor = Picture1.Point(X, Y) End Sub

Verfasst am: 11.05.2012, 13:42 Aufrufe: 52

Bitte falls möglich die Antworten simple gestalten damit wir auf der selben Wellenlänge bleiben können Smile

Benutze Visual Studio 2008. Habe einen VB6 Code zu VB.net konvertiert und habe fast bei jede Zeile eine Warnmeldung bekommen. Private smsObj As NokiaCLMessaging.ShortMsgAdapter Private SubmitObj As NokiaCLMessaging.IGSMSubmit Private Sub Form_Load() smsObj = New NokiaCLMessaging.S ...

Verfasst am: 03.05.2012, 17:10 Aufrufe: 181

Gleichzeitig sollen die Daten aber auch in einer Listbox angezeigt werden. Mein bisheriger Code: Dim Stempel as String Private Sub Command1_Click Stempel = Int(Now) + (Timer + seconds) / 86400 End Sub weist meiner Variablen Datum und Zeit zu, aber weiter komm ich einfach nicht. Ich weiß nicht wie ich das mit dem Array machen soll dass jedesmal beim Tastendruck das Array um einen Eintrag ...

Verfasst am: 11.04.2012, 06:12 Aufrufe: 118

Hierzu mal mein Code soweit, dieser funktioniert auch (halbwegs) jedoch wird nicht jeder erneute Anschlag regestriert der die Progressbar während des Ladens zurücksetzen soll. Public Class Form1 Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Integer) As Short Dim Taste As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As ...

Verfasst am: 04.04.2012, 08:09 Aufrufe: 389

hat jemand nen Snippet? Mein vorher geschriebener Code Imports System.Security.Cryptography Imports System.Text Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Function SHA1StringHash(ByVal strString As String) As String Dim SHA1 As New SHA1CryptoServiceProvider Dim Data As Byte&# ...

Verfasst am: 02.04.2012, 13:06 Aufrufe: 148

Hallo, ich habe ein Makro in einer Excel-Datei einwandfrei durchlaufen lassen. Dann wollte ich eine bestimmte Tabelle "Einzel_Nachweis_gesamt" in dieser Datei anklicken. Plötzlich bekomme ich die Meldung: "Excel reagiert nicht mehr" und ich muss Excel neu starten. Wenn ich dagegen auf andere Tabellen anklicke, bekomme ich diesen Fehler nicht. Es scheint so, dass die VBA-Code zu dieser Tabe ...

Verfasst am: 15.03.2012, 14:24 Aufrufe: 283

think its possible with regex...but how? here is my sourcecode: Private Sub AutorToolStripTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutorToolStripTextBox.TextChanged Try Me.DatenbankTableAdapter.Autor(Me.Database1DataSet.Datenbank, AutorToolStripTextBox.Text & "%") Catch ex As System.Exception System.Windows ...

Verfasst am: 15.03.2012, 14:23 Aufrufe: 137

here is my sourcecode: Private Sub AutorToolStripTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutorToolStripTextBox.TextChanged Try Me.DatenbankTableAdapter.Autor(Me.Database1DataSet.Datenbank, AutorToolStripTextBox.Text & "%") Catch ex As System.Exception System.Windows.Forms.MessageBox.Show(ex.Message) ...

Verfasst am: 15.03.2012, 11:15 Aufrufe: 203

Hallo Forengemeinde, Ich bin ein frischling im Bereich VB 2010 habe es ja schonmal geschafft das sich per Button klick das Popup öffnet aber die Fentergröße des Popups ist zu klein möchte das Fenster gerne an die größe das Inhaltes anpassen nur wie mache ich das ?? hier mal mein Code Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click ...

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: 26.02.2012, 10:56 Aufrufe: 176

Und auch mit der eigentlich inovativen Programmierung, welche ich so toll finde, komme ich nicht weiter. Habe ein "Chart1" erstellt, eine "Series1" erstellt mit mehreren Datapoints (0-11) für Januar bis Dezember. Hier nur mal ein Aussschnitt von Januar - März. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim reihe0 = 5 ...

Verfasst am: 20.02.2012, 01:45 Aufrufe: 171

... n FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer Private Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Integer Public prozessName As String = "" Private ProzessHandle As Integer End Class Private Sub ...

Verfasst am: 15.02.2012, 14:49 Aufrufe: 261

Das Leeren an sich und das Eintragen des Datum funktioniert auch aber der Inhalt (das Datum) wird scheinbar nicht in die XML geschrieben, denn lade ich den Inhalt der XML wieder ins DGV dann ist dieses leer. geladen wird die xml beim formload in die DGV Hab schon viel rum probiert, sieht man wohl am Code: Sad

im prinzip sind es ja nur 3 zeilen .... Private Sub Button5_Click_1(ByVal sender As Sy ...

Verfasst am: 14.02.2012, 10:58 Aufrufe: 225

... ei einen sleep timer zu erstellen! leider will vb6 nicht in cmd reinschreiben! ich habe cmd mit dem Shell Befehl geöffnet und möchte dann mit dem Befehl sendkey etwas hineinschreiben! leider sagt cmd dann "Zugriff verweigert"! wie kann ich das umgehen bzw ausschalten? ich selber bin als administrator angemeldet weswegen ich denke dass cmd visual Basic nur als normalen Gastuser ansieht! Private Sub ...

Verfasst am: 07.02.2012, 22:33 Aufrufe: 458

Die DataCombo ist mit einem weiteren ADO Steuerelement (Adodc2) gebunden. Adodc2 greift auf dieselbe Tabelle zu: Adodc2.RecordSource = "SELECT DISTINCT Wohnort FROM Adressen ORDER BY Wohnort" War das Update erfolgreich, soll Adodc2 -und damit auch die DataCombo- aktualisiert werden: Private Sub Adodc1_RecordChangeComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, By ...

Verfasst am: 30.01.2012, 11:32 Aufrufe: 591

hi ich werde dir hier an dieser stelle nochmals den index ans herz legen.... du hast eine textbox die beschrieben wird wenn das geschieht soll sich der checkbox value ändern Private Sub Text1_Change(Index as integer) if text1(Index).text <> "" then check1(index).Value = 1 else check1(index).value = 0 endif End SUb Wundersschön dynamisch und auf beliebig erweiterbar n ...

Verfasst am: 30.01.2012, 07:51 Aufrufe: 213

hi wie wäre es mit Private Command1_Click() Text2.text = Text1.text End Sub somit schreibst du den inhalt der 1. textbox in die zweite oder hab ich was falsch verstanden?

Verfasst am: 28.01.2012, 14:05 Aufrufe: 213

.. ich habe 2 Textboxen, in der einen Steht der Link und in der 2. der Text ! Wenn ich jetzt auf den Button Klicke soll er mir den Hyperlink in die untere Box schreiben. Diesen Code habe ich gerade dafür: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim url As String ]TextBox2.Text End Sub Aber er sagt mir das die hie ...

Verfasst am: 25.01.2012, 10:30 Aufrufe: 358

aber wenn ich jetzt nen Ordner mit datein asuwähle bleibt er nicht stehen wenn es keine Ordner sondern nur Datein in deem ordner gibt und es steht auch unten kein "öffnen" sodass er den pfad in die Listbox oder das Textfeld schreibt ! Sry bin icht Anfänger .. so sieht mein Code aus: Public Class Form1 Private Property cFile As String Private Sub TextBox1_TextChanged(ByVal sender As Sys ...

Verfasst am: 06.01.2012, 04:55 Aufrufe: 2691

Um eine bestimmte Startseite festzulegen, gibt es keinen so kurzen Code.Die einfachste Möglichkeit ist es die Startseite in einem Textdokument zu speichern. Die idee mit der Txt find ich gut aber ich Selber würdes eher so Machen weil man dann nichts extra abspeichern muss Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = "d ...

Verfasst am: 12.12.2011, 14:50 Aufrufe: 333

Das geht’s um mein Anwendung code für BLDC motor auf die miKrocontoller laden zu können. Ich kann in Moment einmal 8 Bytes senden aber bekomme ich kein ACK(acknowledge) . Ich weiss nicht wie gehe ich vor. ' Handles send data Private Sub btnSendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command6.Click Dim iResult, iTmp As Short Dim sCmd As String ...

Verfasst am: 29.11.2011, 09:37 Aufrufe: 431

Hallo erstmal in die Runde, ich habe ein Problem an dem ich nun schon ewig hänge und einfach nicht weiter komme. ich möchte ganz einfach den Text aus der Zwischenablage ausgeben bzw. in eine Variable schreiben. Hier mein Code: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(HoleTextVonZwischenablage&# ...

Verfasst am: 22.11.2011, 19:05 Aufrufe: 383

Sobald die Bälle in Ruhe sind und z.b "Aufeinander" liegen. Sinken sie langsam runter. Ich kann es da nicht so einfach Lösen wie mit dem Border. Seht selbst: Hier das Gesamte Projekt zum Download: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim aN As Single Dim bN As Single Render.Refre ...

Verfasst am: 20.11.2011, 20:59 Aufrufe: 363

Funktioniert auch, aber eben immer erst nach dem zweiten click. Was mach ich falsch? Danke im Voraus für Eure Hilfe. Option Compare Database Option Explicit Private ZuErsetzen As String Private Inhalt As String Private Sub cmd_bold_Click() On Error GoTo cmd_bold_Click_Error If ZuErsetzen = "" Then Exit Sub End If Inhalt = Replace(Inhalt, ZuErsetzen, "<b>" & ZuErset ...

Verfasst am: 02.11.2011, 21:54 Aufrufe: 453

... es ja nicht, denn wenn man jetzt einfach auf "JA" klickt geht alles normal weiter kann man das noch irgendwie darein schreiben das automatisch auf "JA" geklickt wird oder kann man diesen "Skriptfehler" beheben? Hat jemand vllt. das selbe Problem und konnte es evtl. beheben? Hier ein Screenshot: http://i40.tinypic.com/osy3b8.jpg Code: Public Class Form1 Private Sub ...

Verfasst am: 25.10.2011, 12:38 Aufrufe: 246

hi also man kann auch den ersten teil schöner gestalten.... Private Sub Command1_Click(Index As Integer) Select Case Text1.Text Case 1 : Command1(Index).Caption = "X" Text1.Text = "2" Command1(Index).Enabled = False Case 2: Command1(Index).Caption = "O" Text1.Text = "1&q ...

Verfasst am: 24.10.2011, 23:43 Aufrufe: 246

... soll mit hilfe von VB6 das Spiel Tic-Tac-Toe programmieren, dazu sollen wir (meine Klasse) jetzt schon (nach 6 Schulstunden) in der Lage zu sein. Ich habe soweit auch schon einen Code erstellt, der soweit auch funktioniert, ich habe aber einen Teil, den ich sowas von gar nicht toll finde, aber auch keine Ahnung habe, wie man ihn schöner bzw. übersichtlicher darstellen kann. So hier mal mein Code Private Sub ...

Verfasst am: 19.10.2011, 11:42 Aufrufe: 320

.. habe mittlw. eine andere Alternative ausprobiert und auch hier scheitert es am Freezing... Private Sub Verzoegerung() Dim Zeit As Integer = 2000 Dim Zeit1 As Integer = System.Environment.TickCount While (System.Environment.TickCount - Zeit1) < Zeit GeckoWebBrowser1.Navigate(URL.Text) End While End Sub EDIT: Hat sich erledigt ...

Verfasst am: 16.10.2011, 18:09 Aufrufe: 292

Verfasst am: 02.10.2011, 19:55 Aufrufe: 220

Also was ihr braucht: -2 Textboxen -1 Button Ihr platziert sie beliebig geht doppelclick auf den Button und gebt ein: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(TextBox2.Text, TextBox1.Text) End Sub End Class

Verfasst am: 01.10.2011, 23:40 Aufrufe: 449

Hallo ihr lieben ich brauche mal euer können ich arbeite zurzeit an einem tool was True Crypt laufwerke einbinden und ausbinden soll 2 button habe ich erstellt in einer form und den code benutze ich nur irgendwie passiert nichts wenn ich auf die button klicke hat einer eine idee Public Class Form4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Tr ...

Verfasst am: 30.09.2011, 07:59 Aufrufe: 434

Beispiel: Tabelle: cad_formel Felder: formel_nr (int), beschreibung(text) Tabelleninhalt: 1 abcd 2 abcdefghi 3 abcdef Meine Abfrage: Private Sub Command1_Click() Dim en As rdoEnvironment Dim QD As rdoQuery Dim cn As rdoConnection Dim rs As rdoResultset Dim SQL As String Dim con As String Dim i As Long Dim j As Long Dim t As String Dim iColsize As Long ...

Verfasst am: 20.09.2011, 12:53 Aufrufe: 504

tvwChild, "SupplierCustomer" & rstSupplierCustomer!SupplierCustomerID, _ rstSupplierCustomer!Suppliername & "/" _ & rstSupplierCustomer!Customername rstSupplierCustomer.MoveNext etwas mehr vom Code: ... Private Sub Form_Load() Dim db As DAO.Database Dim rstComponent As DAO.Recordset2 Dim rstSupplierCustomer As DAO.Recordset2 Dim objNode As MSComc ...

Verfasst am: 17.09.2011, 10:31 Aufrufe: 212

jetzt weiterverwenden will, bekomme ich aber folgende Meldung: "Beim Umwandeln aus einer Zahl muss der Wert eine Zahl sein, die kleiner als unendlich ist." Ich verstehe nur nicht warum, da ich die gleiche Logik verwende wie bei den vorherigen Berechnungen. Hier mein Code: Private Sub cmdBerechnen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdBerechnen.Click ...

Verfasst am: 26.08.2011, 12:20 Aufrufe: 554

Settings" speichert und wenn ich das Programm wieder starte, soll die Spalte (also die 4.) wieder angezeigt werden. Der Inhalt der List ist nicht wichtig. Ich hab schon im Internet gesucht, aber nichts hilfreiches gefunden. Bis jetzt habe ich das: Save: Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click Dim str As String = String.Empty ...

Verfasst am: 17.08.2011, 19:37 Aufrufe: 279

so erstmal vielen dank klappt alles wunderbar aber warum ist jetzt text1 automatisch immer im focus sobald die anwendung geöffnet wird ? d.h. der text von text 1 ist automatisch weg... Private Sub Command1_Click() Text5.Text = CSng(Text2.Text) / 60 Text4.Text = CSng(Text1.Text) / 9 Text3.Text = CSng(Text4.Text) + CSng(Text5.Text) Text6.Text = Math.Round(Text3.Text) End Sub Private ...

Verfasst am: 17.08.2011, 09:32 Aufrufe: 279

Hallo, Du kannst folgendes machen: Private Sub Text1_GotFocus() Text1.Text = "" End Sub Damit wird der Text in der TextBox gelöscht, sobald die TextBox den Focus bekommt um eine neue Zahl einzugeben. Gruß

Verfasst am: 17.08.2011, 07:27 Aufrufe: 279

Hi BaSh, es ist normal dass du die Dezimalstellen verlierst weil der Befehl Val(Text1.Text) den Wert aus dem Text nimmt und ihn auf die nächste ganze Zahl aufrundet. Besser ist es im Single-Format zu rechnen, da dieses Format auch Dezimalstellen verarbeitet. Private Sub Command1_Click() Text5.Text = CSng(Text2.Text) / 60 Text4.Text = CSng(Text1.Text) / 9 Text3.Text = CS ...

Verfasst am: 16.08.2011, 20:45 Aufrufe: 279

Hi ich versuche grade ein simples Programm zu coden das 2 werte zusammen rechnet. nur leider nimmt er die werte aus den textboxen an. Private Sub Command1_Click() MsgBox = Val(Text1.Text) + Val(Text2.Text) End Sub das sollte doch normal funktionieren? so hab das ganze jetzt umgebaut das alles nur in textboxen abläuft Private Sub Command1_Click() Text5.Text = Val(Text2.Text) / 60 Text4.Tex ...

Verfasst am: 09.08.2011, 13:25 Aufrufe: 1410

Nur dass es dort für OLE beschrieben war. Folgender Code: Public Sub MySQLwrite(ByRef ds As DataSet) Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(da) MySQLcnn.Open() da.Update(ds, "Produktcode") MySQLcnn.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Di ...

Verfasst am: 28.07.2011, 21:21 Aufrufe: 614

Hallo zusammen Ich habe folgendes Problem. Jedesmal wenn der "speichern" Button gedrückt wird, löscht es mir in der AccessDatenbank die Tabelle uebergaberapport. Kann mir wer helfen? Private Sub btn_speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_speichern.Click Dim AccessDB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Sourc ...

Verfasst am: 21.07.2011, 19:29 Aufrufe: 703

Steuern über Pfeile: Schritt 1 Protected Overrides Function isinputkey(ByVal keyData As System.Windows.Forms.Keys) As Boolean Select keyData Case Keys.Up, Keys.Down, Keys.Left, Keys.Right Return True End Select End Function Schritt 2 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me. ...

Verfasst am: 21.07.2011, 16:14 Aufrufe: 458

Ich will eine Datenbank "auslesen" und hab ich dabei an folgendem Tutorial orientiert: Der Source code lautet folgendermaßen Imports System.Data.OleDb Public Class Form1 Private Sub cmdAlleSehen_Click(...) Handles ... Dim con As New OleDbConnection Dim cmd As New OleDbCommand Dim reader As OleDbDataReader con.ConnectionString = &qu ...

Verfasst am: 20.07.2011, 17:09 Aufrufe: 774

Damit speichert VB die Daten aus der Textbox in bestimmte Zellen von Excel. Ich habe auch schon gegoogelt und folgenden Programmcode entdeckt: Visual Basic Quellcode Public Class Form1 Dim Test As New Microsoft.Office.Interop.Excel.Application Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Test.Workbooks.OpenXML("Der Pfad der date ...

Verfasst am: 20.07.2011, 14:19 Aufrufe: 874

hi ja kein problem... Private Declare Function SetCursorPos Lib "user32.dll" _ (ByVal x As Long, ByVal y As Long) As Long Private Sub SetCur2Lbl() Dim xTop As Long Dim xLeft As Long With lblStart xTop = Me.Top + .Top + (.Height / 2) xLeft = Me.Left + .Left + (.Width / 2) xTop = xTop / Screen.TwipsPerPixelX xLeft = xLeft / Screen.Twi ...

Verfasst am: 19.07.2011, 19:27 Aufrufe: 628

... am Dim streamw As StreamWriter Dim streamr As StreamReader End Structure Dim Server As TcpListener Dim client As New TcpClient Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000) Dim funktion As String() Dim mainthread As Threading.Thread Dim list As New List(Of Connection) '______________ Private Sub ...

Verfasst am: 13.07.2011, 08:38 Aufrufe: 706

Wenn ich in der Entwicklungsumgebung den Code Schritt für Schritt durch gehe, sehe ich auch, wie der Artikel in die Liste eingelesen wird. Nur die Ausgabe in der Combobox ist fehlerhaft. Wie und wo kann ich die Ausgabe der Liste beeinflussen? Danke für die Bemühungen im Voraus Grüße gerredt Private Sub cbArtikel_GotFocus() Set rsArtikel = DataEnvironment1.rsArtikel ' Set rsKunde = DataEnviron ...

Verfasst am: 25.06.2011, 14:01 Aufrufe: 668

So nun ich vor ein Programm zu schreiben um TapeDrives zu bedienen und auch Backups zu machen was eben über die Win32 API läuft. Ich arbeite zur Zeit mit der VB 2010 Express Edition... Als erstes würde ich gerne mal die PrepareTape Funktion ausprobieren ob überhaupt was geht - Der Rest der Backupsoftware kommt dann später Wink

Dazu hab ich mal folgendes zusammengetragen: PrepareTape Function Private ...

Verfasst am: 22.06.2011, 23:10 Aufrufe: 408

D.h. solange Keyboard oder Maus genutzt wird, wird die Zeit erhöht. Es wäre auch eine Lösung, wenn man die Aktivität des Bildschirmschoners abfangen könnte. Habt ihr eine Idee für mich. Gruß Adelhorst Edit: Die MousePosition kann ich schon abfragen: Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Button1.Text = MousePosition.ToString E ...

Verfasst am: 21.06.2011, 19:55 Aufrufe: 614

move aber ob das funktioniert weis 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 ...