Visual Basic Forum

Verfasst am: 30.01.2012, 10:32 Aufrufe: 138

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: 27.01.2012, 12:30 Aufrufe: 138

das funktioniert automatisch ! Mit Ich habe aber unterschiedlich viele Steuerelemente und ich glaub nicht das das so gewollt ist jedem Steuerelement einen Index hinzuzufügen.

Verfasst am: 27.01.2012, 09:46 Aufrufe: 138

Verfasst am: 26.01.2012, 12:33 Aufrufe: 138

Hallo Deepack, danke für deine Antwort. So wirklich blicke ich da nicht durch, was du mir erklären möchtest. Problem: Ich müsste ALLEN Steuerelementen händisch einen Index geben! So ist das keineswegs gewollt. Wäre super wenn du deinen Lösungsvorschlag in Form von Quellcode niederschreiben könntest. Blicke da nicht so wirklich durch.

Verfasst am: 26.01.2012, 12:15 Aufrufe: 138

hi ich habe leider keine ahnung was in vbs geht und was nicht ich hätte jetzt auch keine lösung für dein problem in vb6 habe ich damals ein modul geschrieben das wie für dich geschaffen wäre Smile

aber was du versuchen könntest dass du deinen steuerelementen einen index gibst somit ersparst du dir dein name und type of Text1(3).Text so würdest du dir wahrscheinlich sogar unnötig viel arbeit ersparten ...

Verfasst am: 14.12.2011, 14:52 Aufrufe: 277

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 List1.AddItem messageSplit(1) ...

Verfasst am: 02.11.2011, 13:40 Aufrufe: 325

Sheets("Speicherplatzbelegung").Activate ActiveSheet.Cells(3, 3).Select Selection.Paste und Workbooks("Speicherplatzbelegung").Sheets("Speicherplatzbelegung").Cells(3, 3)=Workbooks("Einlesen").Sheets("Tabelle1").Cells(1, 1) was ist falsch daran? fehlermeldung: Index außerhalb des gültig ...

Verfasst am: 26.10.2011, 18:29 Aufrufe: 160

Ich habe da noch mal eine Frage und zwar sollen wir zusätzlich zum Spiel am Ende noch durch eine MsgBox verdeutlichen, welcher Spieler gewonnen hat. Aber egal, was mir einfällt und ausprobiere funktioniert nicht so wirklich. Meine derzeitige Überlegung lautet wie folgt: Select Case Command1(Index).Caption Case 1: If Command1(0).Caption = "X" And Command1(1).Caption ...

Verfasst am: 25.10.2011, 11:38 Aufrufe: 160

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, 22:43 Aufrufe: 160

... as 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 Command1_Click(Index ...

Verfasst am: 19.10.2011, 09:48 Aufrufe: 335

Parent.Attributes.FullName, group.index, column) temp = New ZedGraph.PointPairList(test(0), test(1)) Dim frac As List(Of dataFraction) Dim fraction As New dataFraction Dim fractions As Long = 0 If mes.fraction Then frac = New List(Of dataFraction) If temp(0).Y > ...

Verfasst am: 11.10.2011, 11:14 Aufrufe: 336

... Öffne Webseite=>Springe ins erste Eingabefeld=>Text eingeben=>Springe ins nächste Eingabefeld=>Text eingeben=>Auf den Antwortbutton springe der gleich danach kommt=>Klicken (Enter)=>Schließe Tab=>Loop (Wiederholen) Ich bin bei mir bisher nur so weit gekommen: Dim Beispiel Set Beispiel = CreateObject("WScript.Shell") Beispiel.Run "http://www.domain.de/index ...

Verfasst am: 22.06.2011, 06:40 Aufrufe: 533

Für alle, die es interessiert: Ich habe nicht die TabStrip-KOmponente benutzt, sondern ssTab ! und mit ssTab1.Tab bekomme ich den Index der Tabs. Wenn man jetzt die Listviews und Flexgrids nicht IN die Tabs legt, sondern diese wie einen Tabstrip behandelt, kann man recht einfach über select case die verschiedenen Felder beliebig füllen. Hat mir schätzungsweise 15 Seiten Quellcode gespart! Also habe den ssTab ...

Verfasst am: 27.05.2011, 14:28 Aufrufe: 214

Hi, danke für Antwort. Der vorgeschlagene Weg wird bei mir nicht klappen, da die Ressourcennamen konkrete Bildnamen sind. ES müsste schon irgendwie über einen Index laufen. Gruß Kaloschke

Verfasst am: 20.03.2011, 21:12 Aufrufe: 311

Computer.Network.Ping("http://www.vb-paradise.de/index.php?page=Index", 5000) Then ToolStripStatusLabel2.Text = "Erreichbar" Else MsgBox("Der Server kann nicht erreicht werden!", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try Warum ge ...

Verfasst am: 05.03.2011, 10:22 Aufrufe: 470

hi das ist schon klar weil der code zeile für zeile abgearbeitet wird er stellt die verbinung her mit der ersten ip und dann mit der 2. ip du müsstest aber hergehen und 1. ip verbinden daten abfragen und 2. ip verbinden dann wieder daten abfragen oder für jede ip ein eigens winsock steuerelement oder über den index ansprechen aber ich denke dann wirds aufwendig und vl sogar schwieriger trozdem vi ...

Verfasst am: 07.02.2011, 09:48 Aufrufe: 352

Die eine soll numerisch sortiert werden! Die andere ist mit Namen versehen die dann automatisch mit sortiert werden sollen. Zb. Max Mustermann 4,0 Zum beispiel 8,2 Maxine Musermann 5,6 ---- SORTIEREN ---- Max Mustermann 4,0 Maxine Musermann 5,6 Zum beispiel 8,2 Also die Namen sollen bei den Entsprechenden Werten bleiben! Ich glaube das macht man mit Index oder so ähnlich! Hat jemand ein Codebe ...

Verfasst am: 06.02.2011, 15:47 Aufrufe: 306

Verfasst am: 04.02.2011, 19:12 Aufrufe: 926

... PS: Nachdem ich nochmal weitergeschaut habe und noch was anderes versucht habe, bin ich immer noch nicht weiter. Zur Zeit habe ich die Elemente in einem Layouttable, deshalb hatte ich versucht, eben dieses anzusprechen, und nebenbei noch den Typ der Variable auf ComboBox geändert, damit ich dort auch auf die Items zugreifen kann: For Each CBox As ComboBox In TableLayoutPanel1.Controls Dim Index ...

Verfasst am: 01.02.2011, 23:18 Aufrufe: 543

Hallo, habe es inzwischen mit etwas Hilfe hinbekommen: Vielleicht hilft es Dir Mit: aktivesWerkzeug = 2 können Buttons angelegt werden aktivesWerkzeug = 1 können bestehende Buttons resized und verschoben werden Habe diese Zuordnung in einer Toolbar im MDI-Mainwindow, in welches die Form "WorkSpace" liegt Benötigt: 1 Form "WorkSpace", in dieser 1 Button "nButton" mit Inde ...

Verfasst am: 22.12.2010, 13:01 Aufrufe: 778

Verfasst am: 18.11.2010, 16:19 Aufrufe: 842

... long int i=1;i<6;i++) //Schleife zur Ermittlung der übrigen Teilstrings und speichern im Array { WerteString=strtok(NULL,"$"); Werte[i]=atoi(WerteString); } SAFEARRAY *SPSData; // Anlegen eines SAFEARRAYS SAFEARRAYBOUND aDim[1]; //Array, das die Dimensionen des SAFEARRAYS beschreibt aDim[0].lLbound = 0; //Erster Index ...

Verfasst am: 03.11.2010, 13:13 Aufrufe: 871

net mittlerweile anders) das heist du hast die wahl ob du bei deinem Taschenrechner in jeden button die codezeile eingibst oder mit einem timer prüfst welche taste gedrückt wurde... für den fall dass du wirklich einen taschenrehner schreibst ist mir grad folgendes eingefallen... 'weise deinen buttons einen index zu... von 0 beginnend private sub button1_Keydown(keycode as integer, Index as integer ...

Verfasst am: 06.09.2010, 06:28 Aufrufe: 308

hi ja ganz einfach du hast eine eigenschaft die nennt sich index über den kannst du die pictureboxen ansprechen zuerst eine picbox auf die form ziehen dann mit strg C und strg V wieder einfügen dann bekommen sie automatisch einen index zugewiesen von 0 bis soviele du halt brauchst und mit picture1(3).BackColor = vbRed ändert sich die farbe lg

Verfasst am: 01.09.2010, 10:34 Aufrufe: 323

schon mal strg c strg v probiert?? anundfürsich kannst du steuerelement von einer form in die nächste kopieren... bedenke aber wenn du steuerelemente mit gleichem namen hast werden sie nur mehr über den index ansprechbar lg edit: noch ein tipp Wink

verlagere deine steuerelemente bei so einem vorhaben in einen container... also eine picturebox zum beispiel somit brauchst du nicht jedest steuerelement ...

Verfasst am: 09.06.2010, 19:51 Aufrufe: 868

Verfasst am: 05.02.2010, 08:09 Aufrufe: 434

.

Im Moment ist die "beste" Variante für mich folgende (leider auch nicht automatsiert, aber immerhin etwas schlanker): Dim f(10) As Form Private Sub Cmd_Aufruf_Click(Index As Integer) Load f(Index) f(Index).Show End Sub Private Sub Form_Load() 'Deklaration der Formnamen an einer zentralen Stelle - Eingabe leider per Hand Set f(0) ...

Verfasst am: 05.02.2010, 05:06 Aufrufe: 434

hallo ich habs gestern lange probiert aber nein ich habs nicht geschafft und ich glaube auch nicht dass das möglich ist was su aber machen könntest du schreibst selcet case in eine eigene sub Public Sub fLoad(index As Integer) Select Case index Case 0: frm_main.Show Case 1: frm_1.Show End Select End Sub z.B. und aufrufen tust dus ganz einfach mit ...

Verfasst am: 04.02.2010, 11:16 Aufrufe: 434

Verienfacht geschgildert gibt e ein Startformular (frmStart) von dem aus ich die anderen Formuare aufrufen will. Die anderen Formulare heißen frm0, frm1, frm2, frm3, frm4... Der Aufruf erfolgt über indizierte Buttons. Ich weiß also das wievielte (Index) Formular ich aufrufen will (z.B. das fünfte Formular -> frm5). Bisher habe ich das so realisiert: Select Case Index Case 0 Load frm0 frm0.show ...

Verfasst am: 27.01.2010, 10:03 Aufrufe: 875

Achja, VB6 WebBrowser1.Document.Forms(0).InvokeMember ("submit") WebBrowser1.Document.Forms("attack").InvokeMember ("submit") WebBrowser1.Document.frames(0).Document.Forms(0).submit das sind die letzten drei. ich verzweifle hier echt langsam es wäre nett wenn jemand rat wüsste. hier noch der quelltext des index <script type="text/javascript"> / ...

Verfasst am: 20.01.2010, 12:21 Aufrufe: 430

hi ja gibt es auch wenn du die menüitems über den index ansprichst du erstells eben eine untermenüs wzeit --> index 0 wzeit --> index 1 wzeit --> index 2 wzeit --> index 3 und wenn du dann auf das menü klickst hast du wzeit_click(index as integer) oder so for i = 0 to wzeit.count -1 if i = index then wzeit(i).checked = true else wzeit(i).checked = false next end s ...

Verfasst am: 12.12.2009, 22:42 Aufrufe: 1283

Hallo, ich bekomme die Meldung: Laufzeitfehler 9, Index ausserhalb gültigem Bereich. Ich habe die Indizes geprüft, alle korrekt, die Zahlen laufen von 34 bis 37, beim Mouseover über die Indizes wird als erster Index richtig 34 angegeben. Die fragliche Codezeile: For index001 = 34 To 37 glbData.nume(index001) = CDbl(txtlache(index001)) Next Rechner Easy Notes 5 von Packard Bell, Windows XP Home, Vis ...

Verfasst am: 03.12.2009, 19:50 Aufrufe: 1139

Dim username, password As String username = "TestUser" password = "TestPW" 'Cookie Container erstellen um bei der nächsten Anfrage wieder eingelogt zu sein Dim Request As HttpWebRequest = CType(WebRequest.Create("http://www.relink.us/index.php"), HttpWebRequest) Request.CookieContainer = New Coo ...

Verfasst am: 16.11.2009, 15:50 Aufrufe: 600

noch einfacher gehts mit dem index label1(1).caption

Verfasst am: 09.11.2009, 21:49 Aufrufe: 359

Verfasst am: 01.08.2009, 17:48 Aufrufe: 957

Verfasst am: 16.07.2009, 11:41 Aufrufe: 2363

Das ist sehr unvorteilhaft Wink

3. 'DragDrop'Jetzt geht es ans Daten auswerten. Zuerst müsst ihr ein Array als String deklarieren. Ich benutze hier als Namen 'Dat'Wichtig hier bei ist es, dem Array keinen Index zu geben, da wir ein dynamisches Array benötigen.Visual Basic: In dem Array wird NICHT der Inhalt der Dateien gespeichert, sondern nur der Pfad zur Datei.Mit den Daten in dem Array könnt ihr jetzt eine Auswe ...

Verfasst am: 05.07.2009, 19:39 Aufrufe: 1819

Beschreibung: Dieser Tipp zeigt, wie man zur Laufzeit Tabs zu einem TabControl hinzufügen und diese auch wieder entfernen kann. Funktion: Visual Basic: Beispielprojekt: http://www.activevb.de/tipps/vbnetdownloads/tipp0057.zip Quelle: activevb.de

Verfasst am: 29.06.2009, 14:06 Aufrufe: 1638

Beschreibung: Mit Zuhilfename der API-Funktion SendMessage lässt sich der Monitor in den StandBy-Modus schalten und auch wieder einschalten. Erstellen Sie ein neues Windows-Forms Projekt und platzieren auf die Form einen Button, um den Monitor in den StandBy-Zustand zu versetzen. Mit Hilfe eines Timers wird der Monitor dann nach 10 Sekunden autom. wieder "reaktiviert".Funktion: Visual Basic: Quelle: vbarchiv.net

Verfasst am: 15.06.2009, 17:41 Aufrufe: 711

de[/URL] <br />[URL="http://www.pscode.com/"]www.pscode.com[/URL] <br />[URL="http://www.shadoware.de/"]www.shadoware.de[/URL] <br />[URL="http://www.pkworld.de/activex/index.htm"]www.pkworld.de/activex/index.htm[/URL] <br />[URL="http://www.it-academy.cc/menu/92/Visual+Basic.html"]w ...

Verfasst am: 15.06.2009, 11:51 Aufrufe: 3118

So jetzt geht ihr in Form_Load: und verweist die ImageList als SmallIcons in der ListView, das geht so: ListView1.SmallIcons = ImageList17. Jetzt macht ihr am besten einen Button um einen Eintrag zu machen, und dann schreibt ihr in den code: ListView1.ListItems.Add , , "Test", , "txt"Das "txt" ist der Key wo ihr vorhin angegeben hattet, ihr könnt hier auch den Index des Icons verwenden8. So das ...

Verfasst am: 15.06.2009, 11:35 Aufrufe: 2512

Thema: FSO Teil 1 - DateioperationenAutor: ZiGIndex:1. Einleitung2. Deklarationen3. Lesezugriff 3.1 Zeilen 3.2 Bytes4. Schreibvorgang 4.1 Zeilen 4.2 Bytes5. Kopieren6. Verschieben7. Umbenennen8. Löschen9. Abschluss 1. EinleitungWas ist FSO?FSO steht für "File System Objects" und ist eine Objektklasse durch die man relativ einfach mit Dateien, Laufwerken und Ordnern arbeiten kann.Egal ob verschieben, kop ...

Verfasst am: 15.06.2009, 11:32 Aufrufe: 1362

Thema: Procedures (Prozeduren)Autor: ZiGIndex:1. Einleitung2. Aufbau einer Funktion3. Werte übergeben4. ByVal, ByRef, Optional5. Tipps und Tricks6. Nachwort 1. EinleitungDie meisten werden sich jetzt denken "Prozeduren? Darüber weiß ich eh schon alles!".Aber ich bin sicher dass für jeden etwas dabei ist was er noch nicht wußte. :wink:Also fange ich mal an.Es gibt Sub- bzw. Function Prozeduren und ich gehe mal davon a ...

Verfasst am: 15.06.2009, 11:16 Aufrufe: 8006

lv.ListItems.Add , , „Hallo Welt“Dieser Text wird in der ersten Spalte eingetragen. Wenn wir die anderen Spalten nutzen wollen müssen wir das anders machen.Hier ein Beispiel für die zweite Spalte.lv.ListItems(Index).SubItems(1) = "Hallo Welt"So. Jetzt wird euch erstmal die erste Klammer mit Index drin auffallen. Jeder Eintrag, bzw. jede Zeile bekommt eine Nummer zugewiesen. Einen Index.Das hei ...

Verfasst am: 15.06.2009, 11:15 Aufrufe: 1846

Ein Dynamisches MenüUm ein Dynamischen Menü zu realisieren muss man einen Menüpunkt als Array anlegen.Dieses Array können wir dann erweitern wie wir wollen, oder auch Einträge wieder rauslöschen.Um ein Array anzulegen braucht ihr nur bei einem Eurer Einträge bei dem Punkt Index: eine Null hineinschreiben.Den Eintrag mit dem Index 0 nenne ich jetzt einfach mal „List1_men“.Um das Array zu erweitern brauchen wir jetzt d ...

Verfasst am: 15.06.2009, 11:05 Aufrufe: 3576

Als Beispiel werde ich hier eine DB erstellen, in der man seine Mail Accounts + Passwort speichern kann.Als erstes erstellen wir mal die Datenbank auf der Festplatte.Dann machen wir eine Tabelle mit dem Namen „mailaccounts“ und den Spalten „mail“, und „password“. Außerdem wollen wir noch dass den Einträgen der Spalte „mail“ ein Index zugewiesen wird. Das ermöglicht uns eine sehr schnelle Suche der Einträge. Nennt den ...

Verfasst am: 07.05.2009, 11:38 Aufrufe: 966

... tring Dim bufMailID1 As String Dim bufMailID2 As String Dim strTitel As String Dim strAbsender As String Dim strAnkunft As String Dim strMailID1 As String Dim strMailID2 As String Dim i As Integer Dim x As Integer wsTrashMailComCheck.GetData strSource ',vbString 'MsgBox strSource If InStr(1, strSource, " href=" & Chr(34) & "index ...

Verfasst am: 03.05.2009, 11:38 Aufrufe: 2105

Thema: Datenbank per Laufzeit erstellen Autor: ZiG Index: 1. Einleitung 2. Deklarationen 3. Datenbank erstellen 4. Tabellen und Felder 5. Index erstellen 6. Datenbank öffnen 7. Passwortschutz 1. Einleitung Hallo alle miteinander. Hab doch mal wieder Lust auf tutorials schreiben und hab mir gedacht, ich werde euch mal beschreiben wie man eine Datenbank per Laufzeit erstellen kann. Ist ja nicht se ...

Verfasst am: 30.04.2009, 14:50 Aufrufe: 1037

Worksheets(1) XL.Application.Visible = True XL.Parent.Windows(1).Visible = True End Sub Die letzte Zeile (XL.Parent.Windows(1).Visible = True) wirft mir ein System.Runtime.InteropServices.COMException wurde nicht behandelt. ErrorCode=-2147352565 Message="Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))" an den Kopf. Wieso das? - ...

Verfasst am: 15.04.2009, 13:15 Aufrufe: 646

Man könnte noch versuchen auf das Control Array zuzugreifen, mit den entsprechenden Indexen aus deiner Variable test. Man holt sich erst alle Labels in ein eigenes Array und ruft sie dann mit dem Index ab, aber das ist hier aufwendiger als die Select Anweisung. Und die Methode (lable + test).text = "asdf" geht in VB nicht.