Visual Basic Forum

Verfasst am: 21.05.2012, 14:59 Aufrufe: 22

Moin, folgendes Problem: Ich möchte die PIN für ein EncryptedVolume ändern (habe Admin bzw. Systemrechte). uint32 ChangePIN( [in] string VolumeKeyProtectorID, [in] string NewPIN, [out] string NewVolumeKeyProtectorID ); Dafür muss ich den entsprechenden WMI Aufruf machen: Function testwmi() Dim processClass As New ManagementClass ...

Verfasst am: 17.05.2012, 07:56 Aufrufe: 65

Now in its third-generation, Apple TV lets you buy and appoint new absolution and aback archive movies over a wireless internet connection. Set up is as simple as active one end of an HDMI cable into your TV, the added into the device, again configuring it to affix to your wireless network. You appoint movies application an iTunes annual and can watch a cine as abounding times as you like over a 48-hour ren ...

Verfasst am: 12.05.2012, 06:46 Aufrufe: 180

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

Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' SubmitObj.ValidityPeriodRelative = 255 'UPGRADE_WARNING: Couldn't resolve default property of object smsObj.SendSMS. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' Call sms ...

Verfasst am: 03.05.2012, 17:10 Aufrufe: 180

Hallo Leute, ich bin neu hier und ziemlicher Anfänger was VB6 angeht. Confused

Ich würde gerne folgendes realisieren: jedesmal wenn ein Button gedrückt wird, soll das entsprechende Datum mit Uhrzeit aufgezeichnet oder gespeichert werden. Ich würde es mit einem Array machen, wenn ich wüsste wie. Es muss ja ein dynamisches Array sein, da ja die Anzahl der Buttonclicks nicht feststeht. Dieses Array könnte ich dann als ...

Verfasst am: 27.04.2012, 11:34 Aufrufe: 94

Das lag am falschen Aufbau des Strings. Da waren meiner Meinung nach zuviele "Anführungszeichen" drin. Ich bin zwar kein SQL Spezialist, aber ich weiss dass man auch viel mit dem 'Hochkomma' arbeitet um Werte zu schreiben. 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 ...

Verfasst am: 26.04.2012, 15:19 Aufrufe: 68

die bilder laden immer einfach nur neu bzw random aber ich möchte diese bewegung die er da mit den shapes hat... das bewegen ist auch nicht das problem If Picture1.top > Form1.Height Then Picture1.top = 0 else Picture1.Top = Picture1.Top + 50 end if und das in ein timer alles ok aber mein problem nun wie stoppe ich das ganze und zwar so das es an einer bestimmten pos einrastet ????

Verfasst am: 23.04.2012, 18:32 Aufrufe: 67

Open) Dim buffer(1024) As Byte Dim bytesRead As Integer While True bytesRead = fileStream.Read(buffer, 0, buffer.Length) If bytesRead = 0 Then Exit While End If requestStream.Write(buffer, 0, bytesRead) End While ' Den request schlies ...

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

Hallo liebe Community, Ich habe folgendes Problem und zwar möchte ich gerne eine Progressbar Durch einen Tastendruck starten und diese zurücksetzen falls sie ihr Maximum erreicht hat. Zusätzlich möchte ich aber gerne erreichen das bei einem Tastendruck vor erreichen des Maximums der Progressbar diese ebenfalls zurück gesetzt wird. Hierzu mal mein Code soweit, dieser funktioniert auch (halbwegs) jedoch wird nicht j ...

Verfasst am: 04.04.2012, 08:09 Aufrufe: 389

Guten Tag allerseits, Folgendes Problem, bin dabei mir nen Passwort für ne .htpasswd zu erstellen, komme aber nicht mit der DES Encryption klar und konnte leider auch nirgends ne Funktion finden, die mir nen des encrypted string zurückliefert, als Beispiel...hat jemand nen Snippet? Mein vorher geschriebener Code Imports System.Security.Cryptography Imports System.Text Public Class Form1 Private S ...

Verfasst am: 03.04.2012, 17:40 Aufrufe: 295

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

Verfasst am: 02.04.2012, 13:06 Aufrufe: 147

... r 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").Unprotect Password:="GBF#1" Worksheets("Einzel_Nachweis_gesamt").Unprotect Password:="GBF#1" Worksheets("End ...

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

... lfe 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() i = Me.Data1.Recordset.AbsolutePosition MastInspDruck.Show End ...

Verfasst am: 06.03.2012, 15:36 Aufrufe: 174

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, 11:58 Aufrufe: 157

das sind mehrdimensionale arrays darin habe ich noch kaum erfahrung aber sonst wenns select case sein muss select case combobox1 case "Deutschland": combobox2.clear combobox2.Add "Berlin .... Case "whatever": end select glaub mir das wird mühsam

Verfasst am: 20.02.2012, 01:45 Aufrufe: 171

Wenn ich andere Prozessnamen eingebe, z.B.: firefox, calc (windows Taschenrechner), wird dieser nicht geändert. Ich würde noch gerne wissen, ob Zeile 25 und 26 notwendig sind, bzw. was diese machen. Ich hoffe ihr könnte mir weiterhelfen, Danke! hier der Code: Public Class Form1 Private Declare Function SetWindowPos Lib "user32.dll" ( _ ByVal hwnd As Int32, _ ByVal hWndInsertAfter ...

Verfasst am: 16.02.2012, 21:00 Aufrufe: 148

hi bisschen googlen hätte geholfen Smile

denn da gibts eine eigene funktion dafür command1_Click if Wochentag(Date) = "Montag" then text1.Text = "Es ist Montag" Private Function Wochentag(dtmDate As Date) As String Wochentag = WeekdayName(Weekday(dtmDate, vbMonday)) End Function

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

Hallo alle zusammen, ich habe folgendes Problem: Ich schreibe gerade ein Programm, mit dem ich Daten über die serielle Schnittstelle empfange. Die Daten zeige ich nach dem Empfangen zunächst in einer Textbox an und schreibe sie danach sequenziell in eine Textdatei. Zum Empfangen der Daten verwende ich das MSComm32.ocx. Das funktioniert auch alles einwandfrei. Nach dem Empfangen des ersten übertragenen Text ...

Verfasst am: 14.02.2012, 10:58 Aufrufe: 225

hey Leute! ich habe nach länger Zeit mal wieder angefangen ein wenig zu programmieren in vb6! nun bin ich dabei 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 administra ...

Verfasst am: 13.02.2012, 17:10 Aufrufe: 196

Salü zusammen Als absoluter Neuling versuche ich in einem Word Dokument relative Bildverknüpfungen einzufügen. Das müsste doch so gehen: (aber nur, wenn die Dokus immer aus demselben Pfad stammen, und der abzuschneidende Pfadanteil des absoluten Pfades genau die richtige Länge(53 Zeichen) hat). Mein Problem ist, dass INCLUDEPICTURE offenbar keine Srtingvariablen mag..... Mad

Wie kann ich dem sonst aus einer ...

Verfasst am: 07.02.2012, 22:33 Aufrufe: 458

EventReasonEnum, ByVal cRecords As Long, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) If adStatus = adStatusOK Then Adodc2.Refresh End Sub Das klappt auch. Leider aber nur beim zweiten mal d.h. der zuerst eingegebene Ort ist im DataGrid erst zu sehen wenn der nächste Ort eingegeben wurde. Beispiel: Name: Mayer Ort: Viersen im DataGrid ist ke ...

Verfasst am: 30.01.2012, 11:32 Aufrufe: 590

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

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

.. 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: 26.01.2012, 10:17 Aufrufe: 590

Wenn ich das habe, möchte ich abfragen, ob z.b. eine Textbox gefüllt ist oder eine Checkbox angekreuzt ist. Ist dies der Fall, soll das entsprechende Tab im TabControl gekennzeichnert werden. Mein VB Code: For Each ctl As Control in Antrag_1 If Dim ctl TypeOf(ctl) Is Textbox Then If ctl.Value <> "" Then TabControl.Pages(0) = "(*) Sammelumzug" ...

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: 25.01.2012, 09:45 Aufrufe: 358

... Type as string) as String dim Ausgabe as string Dim cFile As String cFile = Dir(sPaht & "*." & sFileType) ' Alle Exedateien im Verzeichnis ausgeben Do While cFile <> "" ' Wiederholen bis cFile="" Ausgabe = Ausgabe & vbnewline & cFile cFile = Dir ' Aufruf der Funktion ohne Parameter!! Loop GetFiles = Ausgabe End ...

Verfasst am: 06.01.2012, 04:55 Aufrufe: 2690

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

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: 14.12.2011, 15:52 Aufrufe: 492

Hallo, ich stehe vor volgendem Problem. Ich möchte alle Items einer Listbox auslesen und prüfen ob meine Variable messageSplit(1) schon vorhanden ist. Das ganze ist in einem If Befehl und sieht etwa so aus: If List1.List(0).Contains(messageSplit(1)) Then WinSock(Index).SendData "Sie haben sich beim letzten mal nicht Ausgeloggt!" Else List ...

Verfasst am: 12.12.2011, 14:50 Aufrufe: 333

Hallo Zusammen Ich brauche Ihre Hilfe. 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, iTm ...

Verfasst am: 01.12.2011, 21:36 Aufrufe: 390

Hey Leute, Ich hätte eine Frage und zwar will ich, dass etwas bestimmtes ausgeführt wird wenn eine gewisse Taste gehaltet wird(runter gedrückt und nicht loslassen). Während dieser Zeit, in der die Taste runtergedrückt ist und gehalten wird soll etwas passieren und wenn sie wieder losgelassen wird, soll dies wieder aufhören. Immoment mach ich das noch so, dass wenn die Taste gedrückt wird, dass dann was passiert. H ...

Verfasst am: 30.11.2011, 11:38 Aufrufe: 401

Hallo! Ich beschäftige mich erst seit kurzem mit Visual Basic und habe von daher mal eine grundlegende Frage zur Syntax. 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 (lpszSou ...

Verfasst am: 29.11.2011, 09:37 Aufrufe: 430

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: 23.11.2011, 09:34 Aufrufe: 408

ComboBox2.Items.Add( Format(reader("Zeit"), "dd/MM/yyyy HH:00 ")) Me.ComboBox1.Items.Add( Format(reader("Zeit"), "dd/MM/yyyy HH:00 ")) End If End If Loop reader.Close() con.Close( ...

Verfasst am: 22.11.2011, 19:05 Aufrufe: 382

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

Hallo, bin Anfänger und habe eine Frage , kann mir jemand den folgenden Code Zeile für Zeile mal erklären habe es aus meinen Übungen und den verstehe ich nicht ganz. Also bitte keine Lösungen wie man es anders machen kann möchte den hier verstehen. Module Module1 Sub Main() For i As Integer = 1 To 20 For j As Integer = 1 To i Console.Write("*") ...

Verfasst am: 02.11.2011, 21:54 Aufrufe: 452

Der sich halt automatisch einloggt und Dinge ausführt.. Nun hab ich es mal debugged und dann kommt so eine Fehlermeldung im Webbrowser So schlimm ist 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. da ...

Verfasst am: 30.10.2011, 11:22 Aufrufe: 243

... e DB Set Cn = New ADODB.Connection With Cn .CursorLocation = adUseClient .Mode = adModeShareDenyNone .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = PF 'App.Path & "\dbag.mdb" 'hier ist die Datenbang .Properties("Jet OLEDB:Database Password") = PFPass ' Passwort .Open End ...