Visual Basic Forum

Verfasst am: 12.05.2012, 06:46 Aufrufe: 181

ja und wie ist es mit command1_Click() Stempel = Now End Sub die ausgabe: 12.05.2012 07:46:32

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: 27.04.2012, 11:34 Aufrufe: 94

Im folgenden Code ist zumindest laut VB6-Regeln nichts mehr rot markiert. Versuchs mal bei dir. Public SubOpenDB() goConn = "DRIVER={MySQL ODBC 3.51 Driver};" & _ "SERVER='localhost';" & _ "DATABASE='test';" & _ "UID=' ';" & _ "Password=' ';" & _ "OPTION='16384'" ...

Verfasst am: 23.04.2012, 18:32 Aufrufe: 67

ich hänge hier schon 2 monate ohne ergebnis . Mad

hier der zuständige code : Public Sub Upload() Dim pfad As String Dim datei As String Dim dateiname As String Dim open As String Dim requestStream As Stream = Nothing Dim fileStream As FileStream = Nothing Dim uploadResponse As FtpWebResponse = Nothing Anzeigebereich.Text = An ...

Verfasst am: 21.04.2012, 21:55 Aufrufe: 94

Das Problem fängt eigentlich schon mit dem Connectionstring an. Habe in einem Modul 4 Funktionen ----------------------------------------------------------------------------------------------- Hier habe ich folgendes versucht Public SubOpenDB() goConn = "DRIVER={MySQL ODBC 3.51 Driver};" _ & "SERVER="localhost ";" _ & "DATABASE=te ...

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: 03.04.2012, 17:40 Aufrufe: 296

Dim mana_, life_, name_ As String Public Sub save(ByVal file As String) Dim sw As New IO.StreamWriter(file) ' Writer sw.WriteLine("Life" & "," & "Name" & "," & "Mana") 'text sw.Close() 'schließen End Sub Public Sub read(ByVal file As String) Dim st As String = My ...

Verfasst am: 02.04.2012, 13:33 Aufrufe: 195

Mein bisheriger Code den ich geschrieben habe ist: Privat Sub Command1_Click() shell ("C:\Program Files .

Verfasst am: 02.04.2012, 13:06 Aufrufe: 148

Es scheint so, dass die VBA-Code zu dieser Tabelle fehlerhaft ist. Aber ich finde diesen Fehler vor lauter Bäumen nicht. Hilfe! Tobias Hier ist der Code: Sub Progressbar1() Dim PctDone As Single Static freifahrt_eintrag_fertig As Boolean Dim datei_meisterschaften As String Worksheets("Fahrten").Unprotect Password:="GBF#1" Worksheets("Fahrtkosten_gesamt").Unprot ...

Verfasst am: 28.03.2012, 16:21 Aufrufe: 149

CommandButton.1") oShape.OLEFormat.Object.Name = "buttonRun" oShape.OLEFormat.Object.Caption = "Starten" Nun soll natürlich auch etwas passieren, wenn ich auf den Button klicke Cool

Leider weiß ich nicht wie ich das umsetzen kann. Irgendwie muss ich doch dem Button noch an Handler zuweisen, damit ich dann in einer Sub auf das Ereignis reagieren ...

Verfasst am: 15.03.2012, 14:24 Aufrufe: 284

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: 138

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: 06.03.2012, 14:08 Aufrufe: 161

Timer1_Tick() Webbrowser1.Navigate ("www.google.at") end Sub ja hast recht sind keine 5 zeilen sondern nur 3

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: 15.02.2012, 14:16 Aufrufe: 183

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: 13.02.2012, 17:10 Aufrufe: 196

.

Wie kann ich dem sonst aus einer Inputbox einen Pfad zurückgeben, den er frisst? ---------------------------------------------------- Sub RelativeBildverknuepfung() ' ' RelativeBildverknuepfung Makro ' ' Dim Datei As String 'Hier mal die Filebrowserbox und zurückgeben von Pfad und Filename als Datei vom Wert String With Dialogs(wdDialogFileOpen) If .Display = 0 Then Exit Sub 'wenn abb ...

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: 26.01.2012, 17:21 Aufrufe: 203

Um eine ZipDatei zu erstellen benutzer folgende Code: Sub main dim fso as new filesystemobject dim datei set datei = fso.createtextfile("C:\dateiname.zip") end sub dann wird diese Zipdatei benutzt um weiter zu arbeiten. gehe ich irgendwelche Gefahr ein? Danke für Ihre Vorschläge Very Happy

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: 13.01.2012, 19:56 Aufrufe: 213

ich kann dir jetzt nur einen pseudo code aus vb6 bieten das wird aber in vb.net ähnlich funktionieren txtstring.text = "123456" txtsuch.text "123" x = instring(txtstring.text, txtsuch.text) if x = 0 then exit sub txtstring.selstart = x txtstring.sellengh = len(txtsuch.text) pseudocode ende ich hoffe du kannst damit was anfangen

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: 04.01.2012, 11:13 Aufrufe: 277

Imports TDAPIOLELib Public Class QCConnection Public Sub getConnection() Dim tdc As TDConnection End Sub End Class Wenn ich das Projekt nun deploye und in meinem Browser durch einen klick auf einen Button die Funktion getConnection() aufrufe, stürtzt das Programm ab und ich bekomme folgende Fehlermeldung: Start-URI: Z:\Documents and Settings\TGDGEDAD\Desktop\tmp\TDO- ...

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: 01.12.2011, 08:27 Aufrufe: 494

eingebaut. Außerdem funktioniert das ganze auf meinem Entwicklungsrechner ohne Probleme auf anderen Clients spuckt es den Fehler aber aus. Das Merkwürdige ist, dass überhaupt eine Ausnahme auftritt, wo ich doch in jeder Procedur/Sub/Function eine Fehlerbehandlung eingebaut habe. Hier noch ein paar Hinweise zum Projekt: Das Form, das geschlossen wird ist ein Eingabeformular, DB basierend auf SQL-Server 2005. ...

Verfasst am: 30.11.2011, 11:38 Aufrufe: 401

Es handelt sich bei meinem Problem um die Entwicklung eines Makros in VBA. Ich möchte gerne in meinem Sub auf eine Function verweisen, damit diese dann ausgeführt wird. Meine Syntax schaut bisher wie folgt aus: Sub Execute1() Call ExportFile End Sub ------ Function ExportFile (lpszSourceFileName As String, lpszDestinationFileName As String, lExportType As Long) As Boolean ExportFile = True End Function ...

Verfasst am: 29.11.2011, 09:37 Aufrufe: 432

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: 12.11.2011, 19:47 Aufrufe: 349

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: 26.10.2011, 12:50 Aufrufe: 294

also falls sich jemand dafür interessiert: ich habs geschafft ihn auszutricksen Wink

hier der code: Public Declare Function GetTickCount Lib "kernel32" () As Long Public x As Long Public zeit() As Currency Public Sub Delay(nsekunden As Long) Dim TimeOut As Long TimeOut = (GetTickCount / 1000) + nsekunden Do DoEvents Loop Until TimeOut < (GetTickCount / 1000) End Sub x ...

Verfasst am: 25.10.2011, 13:02 Aufrufe: 294

php?id=528 ' ********************************************************* ' * ' * Modul Delay ' * ' ********************************************************* Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermi ...

Verfasst am: 25.10.2011, 12:49 Aufrufe: 294

... t;OUTPUT ON" & Chr(13) 'ausgabe des geräts aktivieren Call Verzoegerung(Zeit(i)) 'für gewisse zeit warten Next Next im Variablen-Modul: (damit die variablen übersichtlich bleiben) Public VDauer As Currency Public VStart As Currency Public VZeit As Currency im Modul: Public 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: 18.10.2011, 13:16 Aufrufe: 292

hi das einzige was mir einfallen würde ist folgendes Public xAbbruch as boolean btn... wie auch immmer Stop xAbbruch = True end Sub Public Function wasweisich und hier alle paar zeilen if xAbbruch = True then exit Function

Verfasst am: 18.10.2011, 10:03 Aufrufe: 292

hi ich weis ja nicht wie deine function aussieht aber eigenltich wenn du in einer sub eine andere funktion aufrufst wir die sub doch erst dann weiter ausgeführt wenn die function abgeschlossen ist oder hast du eine schleife am laufen?? die auf etwas wartet und wärenddessen rufst du mit deinem timer die sub und function wieder auf könnte das das problem sein?

Verfasst am: 16.10.2011, 18:09 Aufrufe: 292