Visual Basic Forum

Verfasst am: 27.04.2012, 11:34 Aufrufe: 94

Versuchs mal bei dir. Public SubOpenDB() goConn = "DRIVER={MySQL ODBC 3.51 Driver};" & _ "SERVER='localhost';" & _ "DATABASE='test';" & _ "UID=' ';" & _ "Password=' ';" & _ "OPTION='16384'" goConn.CursorLocation = adUseClient goConn.Open End Sub Gru ...

Verfasst am: 21.04.2012, 21:55 Aufrufe: 94

Habe in einem Modul 4 Funktionen ----------------------------------------------------------------------------------------------- Hier habe ich folgendes versucht Public SubOpenDB() goConn = "DRIVER={MySQL ODBC 3.51 Driver};" _ & "SERVER="localhost ";" _ & "DATABASE=test;" _ & "UID=" ";" ...

Verfasst am: 19.01.2012, 01:01 Aufrufe: 268

Verfasst am: 19.10.2011, 10:48 Aufrufe: 455

ContainsKey(mes.name) Then Dim temp As New ZedGraph.PointPairList Dim column As Integer = group.channels.Item(mes.name).column Dim test = tms_read.read_Signal(group.Parent.Attributes.FullName, group.index, column) temp = New ZedGraph.PointPairList(test(0), test(1)) Dim frac As List(Of dataFraction) ...

Verfasst am: 06.10.2011, 15:00 Aufrufe: 426

Ich habe ein Problem an dem ich schon wochenlang rummache und hoffe auf Eure Hilfe. Es geht um eine Dynamische Anpassung des Connection Strings in einem Adodc Objekt. Mein Prog erzeugt für jeden Testort (Benutzereingabe) eine Access mdb mit Tabellen für jeden Test (Benutzereingabe). Die DB ist über ADODC per Connection String mit vb6 verbunden. Die Messwerte zeige ich in einem Grid und einem MSChar ...

Verfasst am: 11.08.2011, 12:37 Aufrufe: 255

Hallo, ist es möglich mit dem Mozilla Browser Control Webseiten auszufüllen, ganz so, wie es mit dem WebBrowser Object möglich ist ? Das Mozilla Control kennt anscheinend nicht die Funktion ".document.forms(0).DPListTech.Value = "test"" und das Click event. Also ausser einer WebSeite aufrufen, hat bisher nichts geklappt. Kann mir da jemand weiterhelfen bitte. danke mfG Philippe

Verfasst am: 20.07.2011, 17:09 Aufrufe: 774

... ammen, ich habe das Problem, dass ich aus einem beliebigen Forumular den Inhalt von Textboxen in eine Excel-Datei packen will. Heißt also das ich zb. Hallo in die Textbox eingebe und auf einen Button drücke. 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 ...

Verfasst am: 17.07.2011, 22:48 Aufrufe: 309

Hallo Makle Du beschrkänkst dich in deinem Code auf "MenuStrip"s. For Each c As Control In Me.Controls With c If TypeOf c Is MenuStrip Then .Text = "Test" End If End With Next So gehts On Error Resume Next For Each c As Control In Me.Controls With c .Text = "Test" End With Next On Error Goto 0 on error ist wichtig, da es Steuerelemente gibt die keine Text-Ei ...

Verfasst am: 13.07.2011, 16:33 Aufrufe: 309

) Folgenden Code habe ich dazu im Netz dazu gefunden (habe ich natürlich auf meine Form angepasst): For Each c As Control In Me.Controls With c If TypeOf c Is MenuStrip Then .Text = "Test" End If End With Next Jetzt dachte ich, dass alle Parameter Text von alle Komponenten innerhalb der Form auf Test s ...

Verfasst am: 21.06.2011, 20:01 Aufrufe: 452

aja ungewöhnlich die vidos liegen auf meinem ftp server komisch habs auch grad getestt 4,5kb/sec wie ich sie hochgeladen habe und zum test den download gestartet waren es etwa 600kb vl haben wir grad zufällig eine blöde zeit erwischt ansonsten such mal auf youtube... da gibts bekanntlich alles lg

Verfasst am: 10.06.2011, 19:41 Aufrufe: 427

Verfasst am: 23.05.2011, 13:11 Aufrufe: 418

ich nochmal, hab den Fehler gefunden. ich muss unter DIM festlegen wieviel ich im Array zuordnen will. test(20) z.B. dann gehts:) danke für den Wink mit dem Zaunpfahl Smile

Verfasst am: 23.05.2011, 13:04 Aufrufe: 418

Hi Christopher, danke für Deine Hilfe, eine Kleinigkeit scheint da nicht zu gehen. Ich bekomme eine Fehler : Typen unverträglich. aus irgendeinem Grund lässt sich das Array nicht verwenden?! Den Dim test (1 to 10) as String hat er auch angemakelt. den könnte ich auch weglassen, oder? LG Andreas

Verfasst am: 23.05.2011, 07:45 Aufrufe: 418

Verfasst am: 22.05.2011, 16:27 Aufrufe: 418

Meine Frage ist auch eine ganz einfache: Ich hab eine For Next schleife wo ich die variable i immer um 1 erhöhe. dann möchte ich diese variable mit einem Wort koppeln um eine variable wie test1, test2, test3 usw. zu erhalten Das anchfolgende Script ist nur ein Beispiel für das was ich erreichen will: <% i=0 for a = 1 to 10 Randomize my_num = Int((rnd*1000))+1 variable = "das ist ein beli ...

Verfasst am: 25.03.2011, 19:54 Aufrufe: 368

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

**/************/test/filesizes.

Verfasst am: 21.03.2011, 13:42 Aufrufe: 360

Hier hab ich ein Tool gecodet mit dem man den Computer auf die schnelle herunterfahren kann. Damit bleibt einen das Startmenü öffnen und dann alles auswählen erspart Very Happy

Hier der Download: http://www.mediafire.com/?yviaah7qzrnarlc Und ein Screenshot:

Verfasst am: 18.03.2011, 19:37 Aufrufe: 314

Mein neues kleines Tool Damit kann man den Computer seines Freundes vollspammen. Einfach eine Nahricht eintragen, auf SPAM klicken und auf STOP wenn ihr meint, das es genug ist. Das ist noch ne Testversion ich versuche sie zu verbessern War eine halbe Stunde arbeit(Kann man sich net so gut vorstellen Very Happy

) Screenshot: Download: http://www.mediafire.com/?qu79n24fe5l4d5l Viel spass Very Happy

Verfasst am: 16.03.2011, 20:40 Aufrufe: 313

Hallo zusammen, hab da mal ne Frage. :Ich habe den Text meherer RTB`s in eine Datei gespeichert die ich "TEST" nenne, diese Datei "TEST" wird mir in einer Listbox angezeigt. nun möchte ich mit Click auf "TEST" in der Listbox den Text wieder in die RTB`s einlesen. Kann mir da jemand helfen ???????

Verfasst am: 24.02.2011, 09:01 Aufrufe: 564

Mittels DataGridView zeige ich die Datensätze an, diese können aber durch eine andere Instanz verändert werden, deshalb möchte ich (zB mittels Timer) mein DataGridView aktualisieren. Problem: Wie kann ich es erreichen, dass die Datensätze in der DataGridView aktualisiert werden OHNE dass der Eingabefokus auf die erste Zeile/Spalte springt. Ich habe es mit TestTableAdapter.Fill(TestDataSet.Test) versucht, da ...

Verfasst am: 31.01.2011, 18:29 Aufrufe: 509

Y + 16 Then MsgBox "Test" Exit For Else End If Hier werden die Koordinaten überprüft, textlich ausgedrückt: Befindet sich die Cursorposition auf der linken Grenze der im Array vorliegenden Bilder bishinzu dem rechten Rand (16pixel breit) und der die obere und untere grenze sind ebenfalls außerhalb des Cursors (also der Cu ...

Verfasst am: 25.01.2011, 13:34 Aufrufe: 870

0 MIMEDIR//EN" Print #1, "VERSION:2.0" Print #1, "METHOD:PUBLISH" Print #1, "BEGIN:VEVENT" Print #1, "ORGANIZER:MAILTO:anmeldung@test.de" Print #1, "DTSTART:" & jahr & monat & tag & "T" & stunde_a & minute_a & "00" Print #1, "DTEND:" & jahr & monat & tag & ...

Verfasst am: 08.01.2011, 22:31 Aufrufe: 392

Verfasst am: 16.12.2010, 20:36 Aufrufe: 571

Verwende ich die alte GDI-Funktion DrawFocusRect auf dem DeviceContext der Parent-Form, so kann dieser Frame flüssig auf der Form bewegt werden. Verwende ich die Funktion DrawFocusRect allerdings auf dem DeviceContext des Desktop (genau wie es ja bei der DrawReversibleFrame-Funktion ja üblich ist) so ruckelt der Rahmen bei Bewegung des Mauszeigers (im selbstgebastelten Drag-Modus). Hier der Test-Quelltext: Imp ...

Verfasst am: 14.12.2010, 13:57 Aufrufe: 345

Folgenden Code habe ich schon: Private Sub ThisApplication_NewMail() Dim filter As String = "EMC "Dim OLApp As New Outlook.Application Dim objNS As Outlook.NameSpaceDim MapiFolder As Outlook.MAPIFolder Dim mailItem As Outlook.MailItemDim test As Outlook.Items objNS = OLApp.GetNamespace("MAPI") MapiFolder = objNS.Folders.Item("Postfach - BS37 - 365 ...

Verfasst am: 14.12.2010, 12:30 Aufrufe: 1203

Verfasst am: 14.12.2010, 08:43 Aufrufe: 1203

Sorted = True End Sub End Class PS: Ist VB Express von der Sprache anders? Normaler weise schreibe ich sowas wie Dim LBL As Control For Col = 1 To 10 Me.Controls.Add "Forms.Label.1", "Lbl_" & Col Set LBL = Me.Controls("Lbl_" & Col) LBL.Caption = "Test" LBL.Height = 12 LBL.Width = 50 ...

Verfasst am: 03.11.2010, 11:14 Aufrufe: 1160

... t(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) end sub 'vorher noch den cursor richtig positionieren cursour.position = new point(xposytion, ypostion) 'du kannst auch zwischen down und up eine andere position angeben 'dann wird verschieben simuliert ;-) tastenkombinationen sind auch kein problem SendKeys ("{enter}") ' oder einfach nur Sendkeys "Test ...

Verfasst am: 02.08.2010, 12:00 Aufrufe: 592

... heist das alles beispiel: du hast eine form und ein modul im modul private sub Msg_Box ( byval sText as string) msgbox sText end Sub ist auf der Form "unsichtbar" public sub Msg_Box ( byval sText as string) msgbox sText end Sub ist sichtbar und du kannst die funktion aufrufen in form1 private sub command1_click() modul1.Msg_Box "Das ist ein test ...

Verfasst am: 27.07.2010, 08:53 Aufrufe: 328

Verfasst am: 07.07.2010, 16:32 Aufrufe: 654

Allerdings möchte ich, dass bei der Ausgabe von z.B. Chr(97) nicht der Buchstabe a ausgegeben wird, sondern auf die Variable a mit dem Inhalt "Test" verwiesen und diese ausgegeben wird. Sub test() Dim i As Long, a As String, x As String a = "Test" i = 97 x = (Chr(i)) MsgBox (x) End Sub So wird lediglich ein "a" ausgegeben. Wie ...

Verfasst am: 04.05.2010, 12:37 Aufrufe: 2310

Verfasst am: 22.04.2010, 10:25 Aufrufe: 965

hi na klar bleibt die datei leer wennst mit for output öffnen möchtest weil dann die datei erstellt wird Wink

probiers mal mit Dim x As Double Dim sText As String Dim FileLength f = "c:\test.txt" Open f For Input As #1 FileLength = LOF(1) t = Input(FileLength, #1) 'ganze datei einlesen Close #1 sText = "Test!" x = InStr(1, t, sText) ...

Verfasst am: 21.04.2010, 10:13 Aufrufe: 965

Hallo, bin neu in der programmierwelt und möchte eine txt DAtei öffnen, einen Wert suchen und ändern. In der Datei steht test!1234 ich möchte dann test! suchen und die ZAhlen ändern, später über eine Variabel. Hier mal mein Code, aber irgdedwie ghet das nicht. Open dateiname For Input As #1 Do While Not EOF(1) Line Input #1, gesamtstring pos = 1 x = InStr(pos, gesamtstring, &quo ...

Verfasst am: 25.03.2010, 11:27 Aufrufe: 599

Verfasst am: 09.02.2010, 08:29 Aufrufe: 896

<asp:GridView ID="gv_MRFSingle" runat="server" AutoGenerateColumns="False" DataKeyNames="MRF_ID" DataSourceID="DS_MRFActual" OnRowCommand="gvMRFSingle_RowCommand"> <Columns> <asp:TemplateField HeaderText="Datum Test"> <ItemTempl ...

Verfasst am: 29.01.2010, 19:24 Aufrufe: 999

Hallo liebes Forum, ich habe auf meiner Form 1 vier Labels die ich über einer Richtextbox fülle und diese Inhalte werden wenn ich auf meinen Speichern Button drücke in eine XML Datei geschrieben. Der Inhalt der XML Datei sieht dann so aus: <Textfeld_Eins>Test </Textfeld_Eins> <Textfeld_Zwei>Test </Textfeld_Zwei> <Textfeld_Drei>Test </Textfeld_Drei> <Textfeld_Vie ...

Verfasst am: 24.01.2010, 15:46 Aufrufe: 746

Forms(0).InvokeMember("submit") Dim URL1 As String URL1 = WebBrowser1.Url.ToString() Dim Writerurl As StreamWriter Writerurl = New StreamWriter("c:/test/url.txt") Writerurl.WriteLine(URL1) Writerurl.Close() ------------------------------------------------------------------------------------------------------------------ Das Pa ...

Verfasst am: 21.01.2010, 18:40 Aufrufe: 2604

DownloadFile _ ("ftp://****.com/test.txt", "C:\test.

Verfasst am: 20.01.2010, 18:48 Aufrufe: 2604

Ich habe mitlerweile das (fast) vollkommene WWW durchsucht nach diesem Problem: Ich möchte einen simplen FTP Dateidownload (FTP-Sever ist mit Passwort und Benutzername) in VB.NET Programmieren. Mein Upload - Code: Dim clsRequest As System.Net.FtpWebRequest = _ DirectCast(System.Net.WebRequest.Create("ftp://live-site.de/test.txt"), System.Net.FtpWebRequest) ...

Verfasst am: 04.01.2010, 01:00 Aufrufe: 1549

Hallo, ich hatte mal Langeweile und hatte so ein kleines lustiges Kopfrechen Programm Programmiert. Das ganze ist Inspiriert von einer Frage hier aus dem Bereich Fragen zu VB6 wie ich zu geben muss, nur, dass ich es ein wenig weiter programmiert habe. Ich finde, dass Ergebnis lässt sich sehen. Bei dem ganzen geht es darum einige sehr einfache Kopfrechen Aufgaben möglichst schnell zu lösen. Je schnelle desto meh ...

Verfasst am: 17.12.2009, 11:37 Aufrufe: 769

ich habe bereit 3 picturebox mit verschidene bilder wenn ich auf button 1 ,2,3 klicke soll sofort in meine eigene dateien ein neue ordner erstellen( new folder test )und von eigene dateien von der erstellte ordner (new folder test) sollte die bilder in (C:\Programme\ exemple folder) speichern hier den code ohne (create folder ) bitte helfen sie mir Private Sub Button1_Click(ByVal sender As System.

Verfasst am: 13.11.2009, 16:44 Aufrufe: 506

Hallo Zusammen, Ich suche eine Winsock-Lösung und habe im Inet keine passende Lösung gefunden daher wende ich mich jetzt an euch! Der Grundcode: For HöheCount = 1 To 10 For BreiteCount = 1 To 10 Puffer = UrlAufrufen("Http://Test.de/Test.php?X=HöheCount&Y=BreiteCount) For Y = 1 To 5 For X = 1 To 5 'Verarbeitung von Puffe ...

Verfasst am: 13.11.2009, 16:42 Aufrufe: 431

FALSCHES FORUM SUCHE VB6 LÖSUNG, SORRY Hallo Zusammen, Ich suche eine Winsock-Lösung und habe im Inet keine passende Lösung gefunden daher wende ich mich jetzt an euch! Der Grundcode: For HöheCount = 1 To 10 For BreiteCount = 1 To 10 Puffer = UrlAufrufen("Http://Test.de/Test.php?X=HöheCount&Y=BreiteCount) For Y = 1 To 5 For X = 1 To 5 ...

Verfasst am: 07.11.2009, 19:51 Aufrufe: 914

... chtige Deklarationen: Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) Private Const VK_SNAPSHOT As Short = &H2CS Aktion: Call keybd_event(System.Windows.Forms.Keys.Snapshot, 0, 0, 0) System.Threading.Thread.Sleep(200) ' To have time to catch the clipboard SaveScreen("c:\test ...

Verfasst am: 23.10.2009, 13:11 Aufrufe: 719

Hallo alle Ich benutze Visual Basic 2008 Express und hab ihr ein kleines test programm geschrieben das ich mit einer Datenbank verknüpft habe (Und zwar Neues Projekt Datenbank SQl server 3.5 ) Soweit so gut die Daten Bank lässt sich anzeigen und alles. Doch nun versuch ich die Daten mit einen button suchen Durzusuchen doch nun folgendes Problem: Habe mit diesem Provider geteste << "Provider= ...

Verfasst am: 25.09.2009, 10:33 Aufrufe: 496

Hallo zusammen Mein Problem: Wie kann ich in Visual Basic 2008 eine Abfrage aus einer Access Datenbank (2002) löschen? Ich verwende OleDb. Dim cmd As New OleDb.OleDbCommand cmd.CommandText = "DROP VIEW test" Klappte leider nicht, es passierte nichts. (Zuerst wollte ich eine Abfrage mit gleichem Namen überschreiben, dazu fand ich leider gar nichts. So dachte ich, lösche ich zuerst die Abfrage und ...

Verfasst am: 21.09.2009, 17:42 Aufrufe: 499

Verfasst am: 08.09.2009, 09:02 Aufrufe: 351