DevHB

Ungefähr so, habe grade keine IDE hier. ' code von form1 Private _VariableForm1 As String Public Property VariableForm1() As String Get Return _VariableForm1 End Get Set(ByVal value As String) _VariableForm1 = value End Set End Property ' code von Form2 Private _VariableForm2 As String Public Property VariableForm2() As String Get Return _VariableForm2 End Get Set(ByVal value As String) _VariableForm2 = value End Set End Property ' Zugriff: Dim f As Form1 f.VariableForm1 = "WERT" etc...

Hi, da würde ich ne Datenbank verwenden (z.B. Access reicht da locker aus). Daten über ADO aus der DB auslesen, darstellen, bearbeiten und wieder zurückschreiben. Die Datenbank kannste dann noch mit nem Passwort versehen (oder einer UserFile .mdw). Hier http://www.activevb.de/cgi-bin/upload/download.pl?id=2444 findest Du ein Bespiel für eine Access Datenbank mit VB 6. So in der Art würde ich das Ding auch aufziehen, max. 2 Wochen Arbeit (dann aber schon mit Reports etc).

Sauber ist das aber nicht. Normalerweise macht man sowas über Properties, grade wenn man in VB.NET programmiert, sollte man doch schon die OOP verwenden.

jipp, geht allerdings nur mit nem extra AddIn: http://support.microsoft.com/default.aspx/kb/837910/en-us/?

Hi, entweder Du gehst über die Datasource Eigentschaft: Dim Rs As ADODB.Recordset Dim sSQL As String sSQL = "SELECT * FROM DeineTabelle" Set Rs = New ADODB.Recordset Call Rs.Open(sSQL,DeineActiveConnection, adOpenDynamic, AdLockBatchOptimistic) With DeinTrueDBGrid Set .DataSource = Rs End With oder füllst das Ding per Hand (also .col.add oder so ähnlich). Habe die Komponenten leider grad nicht hier.

Oh, habe ich ganz vergessen zu sagen, ich gehöre zur IHK Bremen. Muss mein Inhaltsverzeichnis der Dokumenatation denn genauso aussehen wie Auflistung der Aufgaben/Teilaufgaben im Antrag? Meiner Meinung nach ist die Aufteilung aus meinem Antrag murks, die aus der Dokumentation wesentlich übersichtlicher, strukturierter und hat einen roten Faden. Wenn ich mich jetzt natürlich schon darauf einstellen kann, dass meine Doku wesentlich schlechter bewertet wird, dann muss ich mich wohl mit der Struktur des Antrages durchschlagen, wobei mir da das Gefühl kommt, dass die mich da auch auseinander nehmen... Vielen Dank für die Antworten.

Guten Abend, ich habe mir grade mal Gedanken über mein Abschlussprojekt gemacht und das Inhaltsverzeichnis erstellt. Nun habe ich jedoch erheblich Abweichungen im Projektstrukturplan des Antrages und meiner Aufteilung in der Dokumentation. Meiner Meinung nach ist die Aufteilung der Doku sinnvoller. Vielleicht kurze Kritik oder Anmerkung eurerseits? Ist es erlaubt, das solche Abweichungen bestehen? Vielen Dank. Einen schönen Abend. Nun der Antrag: 1.1 Überprüfung der vorhandenen Feinspezifikation 1.2 Erstellung von Bildschirmdialogen 1.3 Testkonzept 2.1 Erstellung und Einbindung der Datenbanktabellen 2.2 Implementierung der Dialoge und der Funktionen 2.3 Erstellung von Reports 3.1 Funktionstest 4.1 Projektdokumentation Und Dokumentation (eigentlich ist dieser Aufbau doch Standart, oder nicht?); 1. Projektauftrag 1.1. Projektziel 1.2. Projektumfeld 2. Projektplanung 2.1. Zeit – und Ablaufplanung 2.2. Ressourcenplanung 2.3. Kostenplanung 3. IST – Analyse 4. Grobkonzept 5. Feinkonzept 6. Projektdurchführung 6.1. Analysephase (Überprüfung Feinkonzept) 6.2. Designphase (Dialoge, DB) 6.3. Realisierungsphase 6.4. Testphase 6.5. Funktionseinführung 6.6. Dokumentation 7. Projektbewertung 7.1. Soll – Ist – Vergleich 8. Abbildungsverzeichnis 9. Anlagenverzeichnis

achso, ich sprach von Open slog For Append As ilog wird zu --> Open slog For Append As #ilog

Das # ist für den Dateizugriff. Dass muss beim Öffnen und schreiben angegeben werden.

Hmm, ansonsten seh ich da keinen Fehler. Wenn ich ein ähnliches Ding bastel, funkt bei mir alles, ka, wat da bei Dir abläuft... Sorry

Hi, ich glaube, hier fehlt ein Rautesymbol: [B] Open slog For Append As ilog[/B] wird zu --> Open slog For Append As #ilog

Hi, zeig mal den Code, dann sieht man das besser.

Hi, kommt darauf an, wie die Anforderung ist. Wenn Du das als Makro machen sollst, dann öffnest Du Excel, gehst in den VBA Code Editor und dann oben im Menü (Datei usw...) auf "Extras--> Verweise". Dort wählst Du "Microsoft XML, v XX" aus, wobei "XXX" für die Version steht. Dann kannst Du auf die Objektbibliothek von XML zugreifen und los legen. Anderer Weg wäre ein VB 6 Programm, in welchem die XML - Datei und die Exceldatei spezifiziert werden. Die Verarbeitung macht dann das VB 6 Programm. Bei beiden Varianten musst Du die XML Bibliothek einbinden und verwenden. Die Entscheidung, welchen Weg Du gehst, liegt bei Dir bzw. Deinem Chef. Ich würde ein VB 6 Programm bevorzugen, da es für mich einfacher wäre, es zu programmieren und Du somit ein wenig flexibler bist, was die Excel - Datei angeht. Das Makro muss ja in der Exceldatei vorhanden sein.

Hi, dafür gibt es in VB die Funktionen LBound (kleinstes) und UBound(größtes) Dim sArray() As String Private Function fArray () Dim Eintraege As Integer 'Zähle Eintrage 'Eintraege = [ARRAYS ZÄHLEN] '---- Eintrag = UBound(sArray()) MsgBox Eintraege End Function

Hi, das müsste ungefähr so gehen: With WebBrowserControl ' text setzen .Documents.Forms(0).test.vakue = "WERTÜBERGABE" ' text lesen Call MsgBox (.Documents.Forms(0).test.value) End With Ist ungetestet! Gruß DevHB

Hi, das XML Dokument auslesen kannst Du mit der MSXML Bibliothek nehmen, ein Beispiel gibt es hier: http://activevb.de/tutorials/tut_msxml/msxml.html Gruß DevHB

no problem...

Hi, "Instr" fängt bei 1 an zu Zählen: nPos = Instr(1,...) Gruß DevHB

Guten Abend, Du musst in VB die Arrays mit "Redim" dimensionieren! Dim dbPers() As String ' VORSICHT: Array wird dimensioniert, aber vorhandene Werte ' Werte werden gelöscht Redim dbPers(0) ' Redim Preserve bewirkt, dass die Arraywerte erhalten bleiben, ' also das richtige für Dich Redim Preserve dbPers(2) In VB gibt es außerdem noch die Funktionen LBound(Array()) und UBound(Array()), LBound ist der kleinste Index und UBound der Größte, perfekt für Schleifen. Ich würde das so machen (ungetestet): Dim dbpers() As String Dim itpers() As String Dim i As Long ' Array dimensionieren Redim dbPers(0) For count = 0 To 100 Text = "00000" & count & "; User " & count itpers = Split(Text, ";") frmMask.txtPersNr.AddItem itpers(0) frmMask.txtPersName.AddItem itpers(1) ' höchsten Index + 1 i = UBound(dbPers())+1 Redim Preserve dbPers(i) dbPers(i) = itPers(0) & itPers(1) Next count