Visual Basic Forum

Verfasst am: 11.05.2012, 11:10 Aufrufe: 33

Guten Tag Forum, ich habe eine Steuerelementarray Tabelle gemacht und dafür eine Scrollfunktion geschrieben. Nur kommt mir die Bildschirmausgabe des Scrollens dieser Tabelle langsam vor. Ich suche deswegen nach einer Methode diese Funktion zu beschleunigen. Ich habe bereits ein Beispiel anderer Art mit CopyMemory gesehen und bin von dem Ergebniss beeindruckt. Meine Frage lautet nun, ob man mithilfe von CopyMemory ...

Verfasst am: 03.05.2012, 17:10 Aufrufe: 179

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: 30.04.2012, 14:45 Aufrufe: 91

Hallöchen, ich komme mal gleich zur Sache: Habe einen zweidimensionalen Array und in Position array(0,0) einen Wert gespeichert. Will ich diesen wert abfragen, bekomme ich eine indexoutofrange-meldung. Es ist definitiv ein wert in array(0,0) vorhanden. Was soll das? habe es zuerst mit einer variablen versucht und jetzt sogar fix array(0,0) stehen, aber keine Chance. Woran kann das liegen? Danke schonmal an all ...

Verfasst am: 27.11.2011, 17:42 Aufrufe: 408

B. Uhrzeit) in die Bilder eingeblendet werden. Was ich bis jetzt geschafft habe: die Kamera nimmt Einzelbilder auf, diese werden mit eingeblendeter Uhrzeit in einem Array zwischengespeichert. Wenn eine Bewegung erkannt wurde, werden wie oben beschrieben die benötigten Bilder aus dem Array entnommen und als JPG auf der Festplatte gespeichert. Anschließend muss ich mit einem Fremdprogramm die Einzelbilder in ein Vid ...

Verfasst am: 30.08.2011, 16:41 Aufrufe: 530

Hallo, ich habe eine Funktion in einer DLL die füllt mir einen Speicherbereich (pData) den die VB6 Anwendung bereitstellt mit Audio-Daten. Deklaration in C++: typedef long (__stdcall *GETBLOCKDATABYINDEX) (const unsigned long BufferIdx, const unsigned long dwStart, const unsigned long dwNbrOfBlocks, void* pData); in VB6 deklariere ich wie folgt: Private Declare Function GetBlockDataByIn ...

Verfasst am: 03.07.2011, 13:14 Aufrufe: 290

Hi! Ich hab ein Problem in VB2010 mit dem MonthCalendar Control: Nachfolgender Code funktioniert nicht mit der Fehlermeldung "Der Wert vom Typ "System.Collections.Generic.List(Of Date)" kann nicht in "1-dimensionales Array von Date" konvertiert werden." Keine Ahnung was das bedeutet und warum es nicht funktioniert. Dim darray As New List(Of Date) Dim d As ...

Verfasst am: 24.05.2011, 17:04 Aufrufe: 285

Hi, ich habe eine Resource mit Bildern im Projekt. Mir ist klar, wie ich über den Namen auf einzelne Bilder zugreifen kann. Ich möchte aber alle Bilder in ein Array einlesen. Also etwas so was ... = My.Resources(i) Geht das irgendwie? Gruß Kaloschke

Verfasst am: 23.05.2011, 13:11 Aufrufe: 417

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

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

Verfasst am: 18.03.2011, 20:25 Aufrufe: 312

Hallo zusammen, Ich bin Umsteiger von VB6 nach VB 2005. Vieleicht könnte mir ja jemand bei folgendem Problem helfen... Ich lese Messwerte aus einer SPS aus und erhalte diese als Long Variablen in einem Array. In vb6 war es möglich das Array in einer Schleife zu durchlaufen und die einzelnen Items in indizierte Labels zu schreiben. Wie könnte ich das in VB 2005 lösen?

Verfasst am: 17.03.2011, 15:56 Aufrufe: 600

StreamReader(fs) Dim Var1 As String = w.ReadToEnd 'Die Datei komplett einlesen 'Wenn das fertig ist, den Filestream und den reader wieder schließen w.Close() fs.Close() 'Wir erstellen ein Array aus allen Zeilen, indem wir den String an jeder neuen Zeile splitten Dim loadarray As Array = Var1.Split(New String() {System ...

Verfasst am: 17.03.2011, 15:25 Aufrufe: 600

So Entschuldigung nochmal hab da vorhin ein wenig Unsinn verzapft und zu wenig nachgedacht Very Happy

Hier nun der Codeteil Fehlerfrei: For Each temp In loadarray 'Eine Schleife, die jedes Elemet im Array durchgeht If temp.Length > 6 Then If temp.Remove(6, (temp.Length - 6)) = "File =" Then 'Wenn die 5 ersten Zeichen der ausgelesenen Zeile deinen Suchbe ...

Verfasst am: 17.03.2011, 13:24 Aufrufe: 600

ReadToEnd 'Die Datei komplett einlesen 'Wenn das fertig ist, den Filestream und den reader wieder schließen w.Close() fs.Close() Jetzt müssen wir nach deinen Zeilen suchen: 'Wir erstellen ein Array aus allen Zeilen, indem wir den String an jeder neuen Zeile splitten Dim loadarray As Array = Var1.Split(New String() {System.Environment.

Verfasst am: 17.03.2011, 13:03 Aufrufe: 827

: Job1 Datei jede Minute kopieren Job2 Datei kopieren wenn Hashwert ungleich Job3 Datei kopieren wenn Änderungsdatum ungleich Job1 hat ja sowieso einen festen Zeitwert und Job2 und 3 werden in einer festgelegten Zeit immer mal wieder überprüft (im Falle meiner Testeinstellung vorerst jede Minute). Bisher hab ich die Behandlung so gelöst: Die Jobs stehen in einer ArrayList und werden über einen Timer beha ...

Verfasst am: 13.03.2011, 20:27 Aufrufe: 459

3 verwenden man copy() und is_uploaded_file() anstatt von // move_uploaded_file() //Deklaration der gültigen mimetypen $mimearray=array("image/gif", "image/jpeg", "image/pjpeg","image/x-png","image/png"); //Upload verzeichnis $uploaddir = 'benutzer/'; //Prüfen ob Formular gesendet wurde if($_POST['senden']==true ...

Verfasst am: 13.03.2011, 11:48 Aufrufe: 293

hi wofür du da einen mehrdimensionalen array brauchst weis ich nicht so ganz dim iArray (1 to 7) as integer dim grZahl as integer grZahl = iArray(1) for i = 2 to 7 if iArray (i) > then grZahl then grZahl = iArray(i) next msgbox grZahl ich habe zwar noch keine consolanwendung geschrieben und vb.net kann ich auch nicht aber mit dem kannst was anfangen denke ...

Verfasst am: 04.02.2011, 20:12 Aufrufe: 1219

Meine aktuelle Problemstellung: Ich habe mehrere ComboBoxen, mit denen ich jeweils folgendes machen möchte: - Sie mit einer Liste von Wörtern (den Bezeichnungen für die Fertigkeiten) füllen - Festlegen, daß beim Ändern des "SelectedItem" eben dieses ausgewählte Item einem vorher definierten Array zugewiesen wird Diese beiden Dinge bekomme ich mittlerweile schon hin, nur möchte ich sie ungern für ...

Verfasst am: 31.01.2011, 18:29 Aufrufe: 508

Y + 16 Then Befehlsfenster.ShowDialog() Exit For Else End If Next End If Kurze Erklärung: Ich will mit meinem Cursor eine Picturebox anklicken die während des Ausführens erst generiert wird, ich schreibe sie zudem in eine Arrayliste um alle Pictureboxen die erstellt wurden zu speichern. Die Zeile If Spi ...

Verfasst am: 29.01.2011, 20:42 Aufrufe: 639

) eine vergleichbare andere "BuildObjekt"-Sub aufgerufen werden. Im derzeitigen Zustand reagiert die Sub "MouseDown" aber natürlich leider immer nur auf den zuletzt erschaffenen Button, da nObjekt nur eine Variable und kein Array ist und daher bei jedem Aufruf von "BuildButton" neu zugeordnet wird. Ich bekomme es einfach nicht hin, das so zu coden, dass ich die pro Form erlaubten 2 ...

Verfasst am: 22.12.2010, 14:01 Aufrufe: 898

Verfasst am: 10.12.2010, 09:50 Aufrufe: 489

Activate Range("a2:a1000").Clear Set Groups = GetObject("LDAP://OU=Sicherheitsgruppen,OU=firma,DC=domäne,DC=local") Groups.Group = Array("group") Set r = Range("a2") For Each objGroup In Groups r = objGroup.Name r = " " & Right(r, Len(r) - 3) Set r = r.Offset(1) ...

Verfasst am: 18.11.2010, 17:19 Aufrufe: 926

Also ich habe es selbst gelöst bekommen. Ein SAFEARRAY ist eine Datenstruktur die von VB6 zur Übertragung von Arrays über die COM-Schnittstelle genutzt wird. Es muss also erst ein SAFEARRAY entsprechenden Typs angelegt, mit Daten gefüllt und kann dann an VB6 übermittelt werden. Hier der Code: C++: void WriteString(char* SPSinput) { char* WerteString; //Der zerlegte Teilstring int Werte ...

Verfasst am: 07.11.2010, 13:42 Aufrufe: 611

send one field and one file strBody = _ "--AaB03x" & vbCrLf & _ "Content-Disposition: attachment; name=""uploaded_file_1""; filename=""" & Me.txtFile & """" & vbCrLf & _ strContentHeader & vbCrLf & _ strText & vbCrLf & _ "--AaB03x--" 'must convert to byte array aPostData ...

Verfasst am: 06.11.2010, 09:41 Aufrufe: 848

kann ich nicht irgendwie einfach die 101 custom Ressource in nen string packen und dann bei vbcrlf splitten und das dann ins array packen?

Verfasst am: 05.11.2010, 23:03 Aufrufe: 848

txt" For Input As #ff While Not EOF(ff) Line Input #ff, strline linecount = linecount + 1 ReDim Preserve sLines(linecount) sLines(linecount) = strline Wend Close #ff nun will ich aber die liste nicht immer mit geben und wollte sie halt als Ressource hinzufügen, aber wie kann ich die liste dann wieder in das string array schreiben? Am liebsten wäre mir d ...

Verfasst am: 21.09.2010, 10:01 Aufrufe: 926

Moin, ich versuche ein short-Array aus c++ nach VB6 zu uebergeben und die einzelnen Werte zu nutzen. Leider bekomme ich die Fehlermeldung, dass eine Konvertierung von 'short(*)Der C++-Code void WriteString(char* SPSinput) { char* WerteString[6]; short Werte[6]; for (int i=0;i<6;i++) { WerteString[i]=strchr(SPSinput,'$'); Werte[i&# ...

Verfasst am: 06.09.2010, 15:37 Aufrufe: 540

Verfasst am: 29.08.2010, 19:05 Aufrufe: 1014

Ich habe das Gefühl das es ein relativ triviales Problem ist und bei den jeweiligen Objecten die nicht "resolved" werden können einfach etwas bei der Definition geändert werden muss. Bei den Arrays bin ich allerdings völlig ratlos, da ich meistens garnicht weiß auf welches Array sich die Warnung bezieht. Es ist leider relativ viel Code, aber eigentlich bräuchte ich nur einen Tipp zu einem bestimmten Fehler, ...

Verfasst am: 27.08.2010, 13:53 Aufrufe: 1014

Hallo, ich habe ein Programm von VB 6 auf VB 2010 upgegraded mithilfe des Upgrade Wizards. Dabei sind natürlich einige Fehlerquellen entstanden. Die meisten konnte ich relativ leicht ausmerzen. Jedoch gibt es noch recht viele Hinweise dieser Art: 'UPGRADE_WARNING: Array has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7&qu ...

Verfasst am: 05.08.2010, 09:32 Aufrufe: 1029

Verfasst am: 05.08.2010, 08:47 Aufrufe: 1029

... 0;CCur(sstr(i))) + 1 Next Close #1 Open "C:\ausgabe.txt" For Output As #1 For i = 1 To 990628 If sSum(i) > 3 Then Print #1, i & " = " & CCur(sSum(i)) & "x" Next Close #1 aber die liste zu sortieren mit der größen summe zuerst puh möglich aber dauert ewig und nochlänger weil der array ...

Verfasst am: 16.07.2010, 11:02 Aufrufe: 544

so hab gestern noch mal versucht etwas weiter zu machen, er liest jetzt zumindest mal die werte ins array....jetzt ist die frage wie ich das sortieren lasse, am besten mit ner for schleife dachte ich? Sub Einlesen() 'IntMerker = 0 Cells(Rows.Count, 2).End(xlUp).Select IntAnzahl = ActiveCell.Row ActiveCell.Offset(0, 1).Range("A1").Select 'MsgBox ...

Verfasst am: 16.07.2010, 11:02 Aufrufe: 544

- Schreiben Sie ein Makro welches das aktuelle Ranking wieder löscht, um neue Daten weiterer Mitarbeiter hinzuzufügen. Soweit mal zur Aufgabenstellung. Ich habe mir überlegt die Daten aus der Spalte B (also die Umsätze) in ein Array zu schreiben welches dann sortiert wird und die jeweilige Positionierung in die jeweilige Zeile schreibt. (Er muss sich also merken welcher Wert wo steht). Er soll also NICHT de ...

Verfasst am: 13.06.2010, 20:35 Aufrufe: 510

Verfasst am: 11.04.2010, 14:04 Aufrufe: 480

Ich versuche ein Sudoku Programm (Visual Basic Express 2008) zu schreiben. Also nicht neues bzw. besonderes. Die einzelnen Eingabefelder sollen Textboxen sein. Wie kann ich diese nun als Elemente eines Arrays ansprechen ? Also etwa als Textbox(1,1) bis Textbox(9,9).

Verfasst am: 24.03.2010, 19:45 Aufrufe: 571

Habe das Problem jetzt umgangen. Ich habe mir jetzt ne Funktion geschrieben die alle doppelten Werte löscht und die nicht gelöschten der Reihe nach in ein Array schreibt. Dieses Array schreibe ich mir dann später in zwei Spalten die außerhalb meines Arbeitsbereiches liegen und greife dort mit der Combobox auf die Werte zu. Nachdem die Eingabe beendet ist lösche die eingegeben Werte einfach wieder, brauche die ja nur ...

Verfasst am: 22.01.2010, 07:33 Aufrufe: 418

Hallo, ich probiere gerade ein Recordset mit Field in ein Array zu schreiben. Sprich es muss ein Rs!field1 bis Rs!fieldx in ein Array, um ein später wieder auslesen zu können und das Datagrid im Fenster daraus dynamisch wieder aufbauen zu können. Leider geht das weder mit Object noch mit Field. Kann mir jemand kurz weiterhelfen? Danke

Verfasst am: 16.01.2010, 15:35 Aufrufe: 733

... bin Alex und versuche ein Programmteil hardwaremäßig vor Veränderung zu schützen! ich habe ein einigermaßen großes Problem, und finde keine Lösung dafür! Ich habe beispielsweise eine Routine wie: Publich Sub OpenMessage(byval Nachricht as String) MsgBox(Nachricht) end sub Diese Sub möchte ich als Programmteil auslagern! Nicht in einer DLL, sondern in einem Stream bzw Array ...

Verfasst am: 23.12.2009, 01:24 Aufrufe: 445

Moin, Ich würde das mit einem Array machen, welches die Werte der TextBoxen enthält und vorm Start des Timers Deklariert wird: Dim TextArray(2) as String Sub Btn_Start_Click () TextArray(0) = TextBox1.Text TextArray(1) = TextBox2.Text TextArray(2) = TextBox3.Text Timer1.Start() End Sub ' Wo ich mir jetzt deinen Code noch mal genauer angescha ...

Verfasst am: 14.11.2009, 18:46 Aufrufe: 647

Is ja ziemlich unleserlich. (Mal so nebenbei) besser wäre die Punkte in ein (zweidimensionales) Array zu schreiben und dann sortieren (bubblesort). Schöner wäre es (wenn du es wirklich so gelöst haben willst) das label/textbox mit lbl.controls(xyz) (xyz als nummer) anzusprechen und dann per schleife sortien

Verfasst am: 29.10.2009, 04:16 Aufrufe: 1088

Hier mal 4 Video Tutorials von mir :p, also das sind meine ersten.Themen:WinExec (Scheiß Shell)Skin (Skins Erstellen und nutzen)Array (Ein Easy Array)Clipboard (Sacht Alles)Download:http://rapidshare.com/files/141449437/Mein...orials.rar.htmlMfg Igoe, Have Fun

Verfasst am: 28.09.2009, 18:03 Aufrufe: 921

Ich möchte mehrere große Textdateien in ein Datatable schreiben und dann an den Daten diverse Berechnungen durchführen. Im moment bin ich noch dabei eine einzige Textdatei einzulesen. Ich gehe dabei aber immernoch über ein normales array. Die Textdateien sehen folgendermassen aus: Kundennummer;Kundenname;Seriennummer;Username;Datum;Uhrzeit;Zugriffsdauer;Status;Fehler;Fehler2 in soeiner Textdatei welche ...

Verfasst am: 24.08.2009, 15:19 Aufrufe: 413

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: 22.08.2009, 15:28 Aufrufe: 945

Moin Leiche, Ersteinmal finde ich die Formulierung "Seitenbeschreibungssprache" unpassend, "Auszeichnungssprache" trifft es eher. Zur Sache: Ich kenne deinen Editor Quellcode nicht, aber ich schätze du arbeitest mit Arrays und oder Klassen. Dein XML-Code hat zwar den richtigen Ansatz, ist aber zu statisch, zumindest für meine Empfindung. ich würde das Ganze so gestallten, was neben Speiche ...

Verfasst am: 07.08.2009, 17:40 Aufrufe: 1459

Hi, damit kannst Du die Elemente in Deinem Array prüfen If myArray IsNot Nothing 'prüfen ob Array bereits initialisiert For Each iElement In myArray If iElement IsNot Nothing Then DoSomething() Next End If

Verfasst am: 16.07.2009, 12:41 Aufrufe: 2506

Es ist natürlich möglich die Datenauswertung bereits im DragEnter Ereignis durchzuführen, dann würden die Daten jedochbereits beim Streifen des Drag&Drop Objektes hinzugefügt werden. 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 dyn ...

Verfasst am: 15.07.2009, 09:38 Aufrufe: 1459

Hallo, wenn ich dich richtig verstanden habe möchtest du bestimmte Elemente im Array nach Inhalt überprüfen, richtig? Oder möchtest du generell wissen ob in deinem Array Daten vorhanden sind? Wenn du ein bestimmtes Element abfragen möchtest geht das ungefähr so: If array(0)="" then MessageBox.Show("Kein Inhalt") Else MessageBox.Show(array(0)) End If ...

Verfasst am: 22.06.2009, 17:01 Aufrufe: 961

Hi, ich hab eine Arraylist bei der stetig Elemente gelöscht werden und brauche aber jedesmal die Anzahl der Elemente dieser Arraylist hab schon ne Stunde google benutzt aber nichtts passendes gefunden. Kann mir jemand helfen? Smile

ok, kumpel hat mir geholfen einfach: array.count Sad

Verfasst am: 15.06.2009, 18:56 Aufrufe: 1124

Also wird der Teil vor der zu entfernenden Zeichenkette und Der dahinter in einem Array gespeichert:Dim Var() As String<br />Var = Split(TheString, TheStringToCut)Dieses Array fügen wir dann wieder zusammen:EndString = Var(0) & Var(1)Den Rückgabewert, den man beim Aufrufen einer Funktion erhält, bekommt man,indem man den Funktionsnamen als Variable benutzt, und den Rückgabewert i ...