Visual Basic Forum

Verfasst am: 30.01.2012, 11:50 Aufrufe: 140

Schön und gut. Du hast eine Methode für eine Textbox geschrieben. Das heisst, jede Textbox kann diese Methode verwenden. Und wie frage ich nun die Form ab, welche Controls vorhanden sind? Wenn ich sie habe, wie frage ich die Form welche Typen die Controls haben? Das muss ich alles abfragen... wie ich eine textbox abfrage und aktionen ausführe ist nicht das problem sondern die abfrage der controls und der typen ...

Verfasst am: 01.12.2011, 20:36 Aufrufe: 221

Space) = KeyPressed Then Do Until GetAsyncKeyState(Keys.Space) = KeyPressed 'Hier der Befehl Loop End if Loop Mit dieser abfrage mach ich das so, wenn space gedrückt, wird die Schleife ausgeführt, welche beim erneuten drücken von space endet. Hätte das allerdings gern so wie ich es oben erklärt hab, wenn das überhaupt möglich ist?! Danke schon ...

Verfasst am: 27.10.2011, 13:28 Aufrufe: 160

Hey, vielen dank =) Nun öffnet sich wenigstens die MsgBox. Dafür ist nun das Problem, dass wenn ich den zweiten Fall ausprobiere die MsgBox nicht geöffnet wird. Edit: Hat sich erledigt, ich habe aus beiden eine einfache Abfrage gemacht und nun funktioniert es Wink

Danke für die sehr hilfreiche Hilfe!

Verfasst am: 30.09.2011, 06:59 Aufrufe: 353

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: 22.07.2011, 18:54 Aufrufe: 456

du musst die einen ordentlichen code stiel angewöhnen!!!!! if abfrage dann hier ein einzug!!! end if so kann man das lesen und wenns wie bei dir ist if was weis ich if noch eine abfrage code end if end if aber zu deiner frage... If TextBox1.Text = Nothing Then 'hier prüfst du ob textbox1 leer ist 'wenn das nicht der fall ist (also wenn ein verein drin steht da ...

Verfasst am: 20.03.2011, 19:34 Aufrufe: 403

Da bleiben noch einige Fragen. Inner wenn eine neue Funktion aufgerufen wird beginnt es doch mit einem Strich und dann beginnt ein Sub. Auszug aus dem Code "Private Sub Command7_Click()" Meine Frage. Wie starte bzw. beginne ich einen neuen Sub in dem dann die Loop Abfrage startet. Oben wird der ja nur ausgeführt wenn Tatse 7 gedrückt wird. Und eben wie wird dieser Sub beendet ? End Sub? E ...

Verfasst am: 07.03.2011, 19:07 Aufrufe: 403

Hallo. Bin hier Neuling und hoffe ich mach da alles richtig. Ich hab da nen Code den ich ändern wollte. Leider kenn ich die passenden Befehle nicht. Im Programm soll die Abfrage von CPU.M(100, 5) permanent abgefragt werden. Wenn = True dann soll die testdatei.txt erstellt werden. Und was ja warscheinlich von selbst geht. Wenn CPU.M(100, 5) erneut True wird dann soll die Datei erneut erstellt werden. ...

Verfasst am: 07.03.2011, 15:45 Aufrufe: 324

hmm asso um das geht es dir ja nein keine ahnung ob das geht wie gesagt ich bin nicht vertraut mit icq reicht dir die abfrage die ich gepostet habe nicht?

Verfasst am: 05.03.2011, 10:19 Aufrufe: 324

... a einen button auf den du draufklickst also login Button1_click... if txt_passwort.text <>"" and _ len(txt_passwort.text) =< 10 and_ isnumeric(txt_passwort) = False then 'hier dein code else exit sub end if end sub das ist jetzt ein pseudo code aber der solle eigentlich funktionieren ich hoffe du kannst damit was anfangen! lg erste abfrage ...

Verfasst am: 17.02.2011, 17:00 Aufrufe: 462

*Pfad*.../current_version.txt") '# fehler abfrag die prüft ob die abfrage funktioniert If ???? Then status.Text = "Update-Check Error (Please check your internet connection and try again later) " webRequest.Abort() Me.UseWaitCursor = False Exit Sub End If webresponse = webRequest.GetRespon ...

Verfasst am: 31.01.2011, 17:29 Aufrufe: 411

Hallo erstmal, ich bin neu im Forum und hauptsächlich wegen einer Denkblockade oder eines komplexeren Problemes hier. Ich zeige euch erstmal einen Code Ausschnitt: If Spieleramzug = 1 And Einheit_setzen_1 = 0 And e.Button = Windows.Forms.MouseButtons.Left Then Dim newPictureBox As PictureBox = New PictureBox() For Each temp As PictureBox In Liste If Cursor.Posit ...

Verfasst am: 22.01.2011, 00:01 Aufrufe: 548

Hier nun paar Fakten: > Ich benutze Visual Basic 2008 > Habe ein WindowsForm erstellt > CrystalReportViewer in das Fenster gezogen > Neuen CrystalReport-Bericht erstellt > MySQL Datenbank erfolgreich verbunden > Datenbankfelder ausgewählt > Report erstellt, funktioniert auch Wie bekomme ich jetzt aber eine bestimmte ID in die MySQL - Abfrage rein, dass der Report nur bestimmte Dat ...

Verfasst am: 24.12.2010, 12:20 Aufrufe: 725

Hallo zusammen, habe jetzt schon vieles ausprobiert, aber irgendwie kapiere ich es nicht. Ich schaffe es einfach nicht, mit Visual Basic 2008 eine Abfrage zu einer Oracle-Datenbank aufzubauen. Habe schon einiges probiert. Nun meine Frage, gibt es irgendwo eine Anleitung, wie ich den Connector, und vor allem welchen, ich installieren muss? Wie ich eine einfache Abfrage machen kann? Auswahl der Datenbank, Kennwort ...

Verfasst am: 21.12.2010, 15:45 Aufrufe: 385

Hallo, ich habe in VisualBasic eine SQL-Abfrage erstellt, die in einer Datenbanktabelle nach Datensätzen mittels einem Suchwort durchsucht. Jedoch bekomme ich dort kein Ergebnis, obwohl genau die gleiche Abfrage direkt in der Datenbank funktioniert. Gibt es da in VisualBasic bestimmtes, was ich übersehen habe? Hier der VisualBasic-Code: ' Im Editfeld txt_suche_stichwort.Text habe ich "Su ...

Verfasst am: 07.10.2010, 06:05 Aufrufe: 521

Verfasst am: 31.05.2010, 12:02 Aufrufe: 671

Zu jeder Kombination habe ich ein Strichmännchen, dem gliedmaßen fehlen (also "amputiert" wurden). Der Name eines Bildes besteht aus "stickman_'Meine Abfrage: Dim strSQL As String = "SELECT bildname " & _ "FROM stickman_db " & _ "WHERE (arm1 = " & cbArm1.SelectedIndex & _ ...

Verfasst am: 04.05.2010, 11:20 Aufrufe: 468

Formular. & inhalt & .BackColor <-- Das "&" verbindet 2 String oder String und Variable usw.... Musst deinen Button als Control dimensionieren oder eine if abfrage einbauen, oder gar Select Case

Verfasst am: 19.03.2010, 18:45 Aufrufe: 966

Guten Abend. Ich habe ein großes Problem mit einer Abfrage einer Datenbank. Ich bringe mir gerade ein wenig VB bei und stoße nach Tageslangen Erfolgen auf ein schier unlösbares Problem. In meiner Datenbank gitb es eine Tabelle Kunde. Die hat einen Primary Key und der lässt sich nicht vergleichen. Ich bekomme immer die Meldung das die Datentypen nicht kompatibel sind. Im Acces habe ich die DB erstellt und einen ...

Verfasst am: 01.03.2010, 13:25 Aufrufe: 532

Verfasst am: 24.02.2010, 17:59 Aufrufe: 453

Nun gilt es, diese Ergebnisse der 2 bis 4 Spieler zu vergleichen um zu ermitteln, wer den höchsten Wurf hat. Bei Gleichstand (der soll auch ermittelt werden) soll nochmals gewürfelt werden. Wie geht man da vor? Es muss unbedingt professionell bzw. effizient vorgegangen werden, also eine endlos lange if und else Abfrage ist zu vermeiden. Das Ganze wird in VB.net programmiert, hatte schon die Idee eine Coll ...

Verfasst am: 17.01.2010, 18:31 Aufrufe: 726

Hallo ihr, folgendes Problem: In einem Program soll die Nachhallzeit in einem Raum berechnet werden. Um die Beschaffenheit der Wände, Decke & Boden einzugeben werden Comboboxen (6 Stück) mit vorgegebenen Einträgen verwendet. In Abhängigkeit zu der abgefragten Frequenz soll in der Excel Tabelle nach dem Eintrag aus der Combobox gesucht werden und dann je nach Frequenz 1 Spalte für 125Hz, 2 Spalten für 250HZ, ...

Verfasst am: 09.01.2010, 14:02 Aufrufe: 1113

verschlüsselungs funktion mit passworteingabe/-abfrage ist jetzt integriert...

Verfasst am: 14.12.2009, 22:07 Aufrufe: 676

ToString Wir fangen mit dem ersten Item an (darum oben (0) ) ! so, jetzt steht z.B. in der variable "inhalt_listbox1" der erste Wert in der 1. Listbox und so weiter ... Nun machen wir mit einfachen IF Abfrage die Vergleiche.... z.B.: If (inhalt_listbox1 =inhalt_listbox2 And inhalt_listbox1 =inhalt_listbox3) Then MsgBox("lol!alles gleich"&# ...

Verfasst am: 03.12.2009, 19:50 Aufrufe: 1139

Close() If InStr(ServerResponse, "Umfrage") Then MessageBox.Show("Login erfolgreich") Else MessageBox.Show("Login nicht erfolgreich") End If Die letzte If Abfrage prüft ob ich im Quellcode nach dem Login bestimmte Wörter finde (wie zb. "Erfolgreich eingelogt" ect.) Irgendwie läuft das ...

Verfasst am: 19.11.2009, 16:29 Aufrufe: 770

Hi, zuerst: Du vermutest richtig, ich rufe das sub anzeige() auf knopfdruck auf. zu 1) Ich habe versucht den Aufruf der sprachausgabe aus dem sub anziege() heruaszunehmen und direkt hinter den aufruf in das Klick-Ereignis des knopfes zu setzen. Ergebnis: Keine Veränderung! Sad

zu 2) ich hab das ganze in die vorgeschlagene if Abfrage gesetzt. Ergebnis: Keine Veränderung! Sad

Ich verstehs nicht. Mit dem näc ...

Verfasst am: 11.11.2009, 14:06 Aufrufe: 1340

Länder dieses Produkt vertrieben werden soll. Dazu dient die Zuordnung zu den SalesOrgs (richtig ?) Als erstes stellt sich da die Frage, zu wie vielen Vertriebskanälen kann ein Produkt maximal zugeordnet werden, weil dies bestimmt wie viele Eingabefelder auf Deinem Abfragebildschirm enthalten sein müssen. Die nächste Frage ist, wie sieht Deine Tabelle genau aus ? Es hat den Anschein, daß es nur zwei Felde ...

Verfasst am: 25.09.2009, 09:33 Aufrufe: 461

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: 05.09.2009, 18:28 Aufrufe: 271

Ich möchte in einem Datareport zu einem Data Field eine Einheit (mm, m/min) anzeigen. Bisher habe ich eine Textbox (die einem gewissen Feld einer Abfrage zugeordnet ist), und dahinter ein Label mit der Einheit. Ist es möglich beide zu verbinden damit bei "CanGrow" auf das Label "mitwandert" oder lässt sich in der Textbox auch zusätzlich eine Einheit anzeigen? Wünsch noch einen schönen Abend.

Verfasst am: 24.08.2009, 14:19 Aufrufe: 380

Liebe Gemeinde, ich erzeuge ein Treeview aus der DB und bin ganz stolz auf mich. Nun habe ich diese Knoten generiert, der Klick auf diese soll ja etwas sinnvolles bewirken, z.B. eine SQL Abfrage ausführen, die jedoch irgendwo gespeichert werden muss. Eingefallen ist mir bisher nur ein Array .. das kann aber stressig werden, wenn Knoten hinzukommen oder gelöscht werden. Dann hatte ich diesen SQL String in der To ...

Verfasst am: 20.07.2009, 07:21 Aufrufe: 665

Hallo, hab da ein Problem ich möchte eine Abfrage starten sobald mein Port keine Antwort mehr bekommt. Jedoch springt das Programm nicht mehr zurück. Weiß jemand was ich falsch gemacht habe? Sub Pause(ByRef serialPort As System.IO.Ports.SerialPort) Dim response As String ' serialPort.Open() 1: serialPort.WriteLine("SL&F") Try ...

Verfasst am: 16.07.2009, 11:41 Aufrufe: 2363

Zurückgegeben wird ein boolscher Wert, der angibt, ob das Format korrekt ist.Zusätzlich könnt ihr angeben, ob die Daten ins gewünschte Format geändert werden sollen. Das ist aber für dieses Tutorial nicht interessant.Auf die If-Abfrage muss natürlich eine Aktion folgen. In diesem Teil wird dann je nach Ergebnis der Abfrage der Cursor zu einem Drag & Drop Icon oder, falls die Daten ungültig sind, wird kein Effekt benu ...

Verfasst am: 12.07.2009, 17:58 Aufrufe: 804

net "lehre" nun mal vorgenommen ein game zu programmieren. als ersten schritt dachte ich mir, das ich ein männchen, bestehend aus einer grafikdatei, über den bildschirm laufen lasse. dazu hab ich mir schonmal folgendes angeschaut: hat mir schon sehr weitergeholfen. nur leider wird mir aus dem tutorial nicht ganz schlüssig, wie ich eine kollision abfrage bzw. wie ich nun z.b. einen Boden erste ...

Verfasst am: 21.06.2009, 06:23 Aufrufe: 384

hallo, ich habe eine MSFlexGrid Box mit Zahlen. In der ersten Reihe steht folgendes: -20 -10 0 5 10 15 usw. Ich habe nun folgendes programmiert: MSFlexgrid1.textmatrix (0,1)= "-20" usw. nun die Abfrage: Dim a as Integer For a = 1 to 10 If text1.text >= MSFlexGrid1.textmatrix (0,a) then ... ... End if next a Das Problem steckt in der If Funktion, diese funktioniert im bereich ...

Verfasst am: 15.06.2009, 15:51 Aufrufe: 627

... ' schön smooth läuft, sonst ist das so "abgehackt" If (Len(ShortCutTextBox.Text) = 0) Then Hide() Else Show() End If End Sub End Class Ich frage mich aber grade, ob ich im Timer nicht prüfen kann, ob eine meiner Contstants gedrückt wurde, also ohne für jede Sondertaste (ALT etc) eine extra Abfrage ...

Verfasst am: 15.06.2009, 11:32 Aufrufe: 1362

Private Function Test(nZahl as long, sBuffer as string) as Boolean Test = True End FunctionWenn ihr diese Function benutzen wollt, dann müßt ihr in der Klammer also zwei Werte übergeben.Ein Aufruf würde z.B. so aussehen:test (1, "test")Da wir eine Rückgabe erhalten sollte man daraus aber natürlich eine If Abfrage machen.if test(1, "test") = True then4. ByV ...

Verfasst am: 15.06.2009, 11:31 Aufrufe: 1156

Aufgabe war es, alle ungeraden Zahlen zwischen 1 und 100000 in eine Liste eintragen zu lassen. Das ist wie ihr an der Größe des Codes sehen könnt nicht so schwer.Die „For“ Schleife fängt also mit „1“ an und wird so lange um eins erhöht bis „100000“ erreicht wird.In der „If“ Abfrage wird überprüft ob die Zahl durch 2 teilbar ist.Wenn es ungleich „0“ ist, dann ist es teilbar und der code in der „If“ Abfrage wird ausgef ...

Verfasst am: 15.06.2009, 11:16 Aufrufe: 1743

Filepath ist natürlich der Pfad zur Datei, die gesendet werden soll.buffer ist der Zwischenspeicher für unsere Teile der Datei.Und jetzt erkläre ich noch die wichtigen Zeilen.If (LOF(1) - pos) > bytes ThenDiese If Abfrage überprüft ob die noch zu auslesenden Bytes mehr sind, als in bytes drinnen steht.Wozu? Ganz einfach. Wir wollen immer 65535Bytes auslesen. Wenn wir aber ans Ende der Datei kommen ...

Verfasst am: 15.06.2009, 11:15 Aufrufe: 990

Hier wird gezeigt wie man eine Datei erstellt und dann mit einer Abfrage Text in diese Datei schreibt.Das ganze geschieht in der Console, sollte aber mit ein wenig logischem Denken auch in die Windowed Application übertragbar sein.Passwort: vb-x.orgDownload Gepackt auf ca. 30MBDer Codec liegt immer bei :)Und ja mein Rechner ist alt und langsam :p aber er macht seine Arbeit!

Verfasst am: 15.06.2009, 11:12 Aufrufe: 2409

Außerdem fällt euch vielleicht das i in der Klammer nach lv.Listitems auf.Mit i geben wir einfach die Zeilennummer an, die wir überprüfen wollen.Man kann auch in anderen Spalten suchen.Dann muss die If Abfrage etwa so aussehen.If StrComp(lv.ListItems(i).SubItems(1), "David" , vbTextCompare) = 0 Then End IfSubItems(1) entspricht der zweiten Spalte, SubItems(2) der ...

Verfasst am: 10.04.2009, 07:23 Aufrufe: 1991

controls sagen er soll mit der tb1 beginnen ... und somit einfach raufarbeiten ... würde mir so eine if abfrage sparen und es wäre eigentlich logischer ... eigentlich interessiert es mich nur ob ich die reihenfolge irgendwie abändern kann Smile

hab das ganze form nochmal angefügt ... danke für die Antworten LG Andi Public Class Form1 Dim Begriffe() As String = {"Niederholer", "Spi-Baum ...

Verfasst am: 30.03.2009, 07:38 Aufrufe: 1912

Du kannst doch von den Eigenschaften der Datei auslesen, wann sie erstellt wurde und dann mit einer If Abfrage einfach die Datein löschen? Dein Script müssste also so aussehen: 1. Den Ordnerinhalt auslesen. 2. Die Eigenschaften der einzelnen Dateien auslesen 3. Wenn bei einer Datei das Erstellungsdatum älter als 14 Tage ist, löschen. Sollte jetzt glaube ich alles mit Google zu finden sein, die Schnipsel die ...

Verfasst am: 24.02.2009, 15:18 Aufrufe: 946

ich bin absoluter VB-Anfänger!! Also ich hab ein Formular (VB6) und möchte dieses proportional vergrößern bzw. verkleinern. Dafür hab ich zweit If-Abfragen geschrieben, die je nachdem ob Höhe oder Breite verändert wird, die andere Seite mit dem Ratio anpassen. Das Problem ist jetzt, dass immer die Abfrage, die als zweites im Programm steht Probleme macht. Irgendwie wird die "alte" Fenstergröße gespeic ...

Verfasst am: 11.02.2009, 18:50 Aufrufe: 1743

Verfasst am: 30.11.2008, 11:06 Aufrufe: 1208

Guten Morgen. ich habe hier diesen Code, welcher nach ablauf eine rbestimmten Zeit einen von zwei webbrowsern neu auf eine bestimmte Seite führen soll, und dann überprüfen, ob sie mit der alten version übereinstimmt. sollte dies nicht der Falll sein, soll eine Message Box aufgerufen werden, wo er nachfragt, ob diese Seite geöffnet werden sol. Hier ist der Code. Ich habe sogar schon probiert, eine ganz andere Sei ...

Verfasst am: 23.09.2008, 17:09 Aufrufe: 522

1. Das hängt davon ab wie du deine Select Case Abfrage aufbaust.Wenn du ganz oben die häufigsten Fälle die vorkommen hinschreibst finden diese Abfragen zuerst statt. Der Rest wird dann garnicht erst abgefragt und dein programm läuft schneller.2. Das obere sollte dann auch diese beantworten. Die anderen werden nicht abgefragt. Wäre ja auch irgendwie dämlich.3. Dein Code müsste das selbe sein wie Case 1Case 2Case 3Case ...

Verfasst am: 09.09.2008, 12:08 Aufrufe: 1355

Verfasst am: 17.08.2008, 11:25 Aufrufe: 1815

Also laden wir das Proramm mal in Olly und starten es direkt. Unser programm hat gemerkt, dass es debugged war und sich beendet. Allerdings liegt auch hier das Problehm in der IF Abfrage die genau wie die Hardware ID sehr leicht gepatched werden kann. Eine Idee wäre wenn unser Programm debugged ist einen Integer auf 1 zu setzen den wir dann hinterher nochmal üb ...

Verfasst am: 04.08.2008, 09:47 Aufrufe: 971

Verfasst am: 31.07.2008, 11:48 Aufrufe: 652

1. Du mußt nicht für jede Frage die mit Dao zu tun hat ne eigenen Thread aufmachen.2. Steht die Antwort in meinem Tutorial.Wenn du die Datenbank mit dbOpenDynaset öffnest (Was du brauchst um per SQL die Abfrage zu machen), mußt du den Zeiger zuerst ans Ende der Tabelle bewegen. Dann kannst du normal abfragen wieviele Datensätze darin sind.

Verfasst am: 28.06.2008, 13:10 Aufrufe: 1947