Letzte Eingaben einer Textbox

Computer: Software & Programmierung Visual Basic
#21

Noch mehr OT
Hallo Alex,

danke für deine Antwort.

Ich frage dich mal was, ist zwar an sich eine Anschlußfrage an eine Beitragsfolge mit Rainer, aber er ist in Trauer, so wie der eine römische Caesar rief „Varus, gib mir meine Legionen zurück“ wird Rainer sein imac-Teil an die Wand schmeißen und rufen „Ich will mein VB zurück“ :smile:))

Jedenfalls sagte Rainer, auf einem Mac läuft kein VB.

Nun weiß ich das es Excel für Mac gibt und ich gehe davon aus daß dann auch das Excel-Vba auf dem Mac läuft.
Da ja Excel-Vba nur eine Teilmenge plus paar Extras von VB ist und es auf einem Mac funktioniert *annehm*, verstehe ich nicht warum da Vb nicht läuft.

Nehmen wir jetzt mal an, es gibt 500.000 Mac Besitzer in D, wenn davon nur 3 % je 1000€ für ein VB auf einem Mac ausgeben würden, so wären das 15 Millionen Euro.
Also bilden wir ein Trio, ihr beide schreibt VB so um daß es auf einem Mac läuft, ich kümmere mich um den Rest.
Und zu Lizensgebühren für VB oder andere lästige Formaltäten sagt mein neuer Kumpel Igor von www.russenmafia.ru: njet, keine Probleme (okay, kostet 100.000)

Und (15 Millionen-100.000)/3 ist schon ein Anreiz für eine Auftragsprogrammierung *find* :smile:

Natürlich könnt ihr das Ding auch ohne mich durchziehen, Igor meint dazu: Kein Problem (10.000 €) *gg*

Gruß
Reinhard

#22

Hallo Alex,

das habe ich nicht so richtig verstanden.

Beim Start des Programms lese ich die Einträge der Registry.
Nehmen wir an 5 Stück. Die stehen dann in der ComboBox.
Nun tippe ich noch 2 dazu. Folglich werden jetzt 7 Einträge wieder zurückgeschrieben. Das ist doch O.K.

Was ich noch nicht geschafft habe, ist das Schreiben in die Registry, wenn ich das Programm über das rote X beende (Fenster schließen). Welchen Event wird da ausgeführt?

Gruß
Gunter

Na das ist doch schon einmal ein Anfang :smile: Dennoch würde ich
wenn das so nicht lassen! Denn gehen wir mal von aus. In der
Combobox wird En eingegeben. In der History stehen 10
Eintraege! 1 Davon beginnt mit EN dann würde dieser nur
angezeigt werden, was auch erwuenscht ist. Aber beendet man
dann das proggi, so wird nur dieser 1 Eintrag gespeichert!

Ich hatte mich gestern mal hingesetzt und kurz was angefangen
zu tippeln. Eigentlich fehlt nur noch eine Kleinigkeit dazu.
Mal sehen, wenn ich es schaffe dann mache ich das heute mal
fertig und poste dir den Source und die Anleitung zum Bau
dazu. Schaue dir das dann mal an und gebe mal eine Info was
dann daran noch anderes gemacht werden soll :smile:

MfG Alex

PS: Das mit dem speichern in der registry ist soweit OK! Warum
willst du einen anderen Pfad vorgeben?

#23

Hallo Reinhard,

Ich frage dich mal was, ist zwar an sich eine Anschlußfrage an
eine Beitragsfolge mit Rainer, aber er ist in Trauer, so wie
der eine römische Caesar rief „Varus, gib mir meine Legionen
zurück“ wird Rainer sein imac-Teil an die Wand schmeißen und
rufen „Ich will mein VB zurück“ :smile:))

*gg* In der Firma läuft es ja noch, nur privat für ein paar Wochen nicht. :smile:

Jedenfalls sagte Rainer, auf einem Mac läuft kein VB.

Nicht ohne Windows-Emulation. Einen Emulator habe ich noch nicht ausprobiert, der Rechner ist nur geliehen, ich will nicht alles umbauen …

Nun weiß ich das es Excel für Mac gibt und ich gehe davon aus
daß dann auch das Excel-Vba auf dem Mac läuft.

Da bin ich nicht sicher. Wenn ja, dann aber in veränderter Form. Einiges kann nicht wie in Windows funktionieren.

Da ja Excel-Vba nur eine Teilmenge plus paar Extras von VB ist
und es auf einem Mac funktioniert *annehm*, verstehe ich nicht
warum da Vb nicht läuft.

Weil VB eng mit Windows verknüpft ist. Lösch mal die User32.DLL … :smile:

Nehmen wir jetzt mal an, es gibt 500.000 Mac Besitzer in D,
wenn davon nur 3 % je 1000€ für ein VB auf einem Mac ausgeben
würden

Darauf würde ich schon nicht wetten. :smile:

Aber ‚umschreiben‘ würde in keinem Fall funktionieren, weil VB ja einige DLLs verwendet. Die gibt es im Unix alle nicht.
Einfacher wäre es, in C und Assembler ein neues VB für Mac zu schreiben, weil von dem Vorhandenen eh nichts übrig bleibt.

Gruß, Rainer

Spalten ein-/ausblenden
#24

Was ich noch nicht geschafft habe, ist das Schreiben in die
Registry, wenn ich das Programm über das rote X beende
(Fenster schließen). Welchen Event wird da ausgeführt?

Hallo Gunter,

direkt kann ich dir nicht helfen, aber ich habe irgendwo VB A -Code der eine Form ohne das Schließkreuz erzeugt.
Ich glaube das geht über API, also müßte man das nach VB umschreiben können.
Damit ist das Problem Schließkreuz umgangen, Beenden der Form geht dann nur noch über eine entsprechende Schaltfläche in der Form und da kannst du ja kontrollieren was beim Beenden geschehen soll.

Soll ich nach dem Code kramen?

Gruß
Reinhard

#25

Hi Gunter,

Was ich noch nicht geschafft habe, ist das Schreiben in die
Registry, wenn ich das Programm über das rote X beende
(Fenster schließen). Welchen Event wird da ausgeführt?

Form_QueryUnload

Gruß, Rainer

#26

Hallo Rainer,

alles klar, danke.

Gruß
Gunter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#27

Hallo Rainhard,

danke, aber der Rainer konnte mir da schon helfen mit:

Form_QueryUnload

Gruß
Gunter

Hallo Gunter,

direkt kann ich dir nicht helfen, aber ich habe irgendwo
VB A -Code der eine Form ohne das
Schließkreuz erzeugt.
Ich glaube das geht über API, also müßte man das nach VB
umschreiben können.
Damit ist das Problem Schließkreuz umgangen, Beenden der Form
geht dann nur noch über eine entsprechende Schaltfläche in der
Form und da kannst du ja kontrollieren was beim Beenden
geschehen soll.

Soll ich nach dem Code kramen?

Gruß
Reinhard

#28

Hallo Gunter,

Beim Start des Programms lese ich die Einträge der Registry.
Nehmen wir an 5 Stück. Die stehen dann in der ComboBox.
Nun tippe ich noch 2 dazu. Folglich werden jetzt 7 Einträge
wieder zurückgeschrieben. Das ist doch O.K.

Ja ok. Aber beim MIE ist es doch so, das wenn nehmen wir mal an.
In der Combobox steht

Alex
Reinhard
Rainer
Peter

Ist die Eingabezeile der Combobox leer! So siehst du alle Eintraege!
Steht in der Combobox (Als Text) nur ein A, so steht dann in der Combobox folglich nur Alex. Steht in der Combox ( Als Text) Ein R, so steht dann in der Combobox demzufolge Reinhard und Rainer :smile:
So wolltest du das doch oder?

Aber lange Rede, kurzer Sinn :smile:
Erstelle dir mal fix eine Form. Platziere darauf eine Combobox (Combo1). Dann kopiere Dir mal folgenden Source in die Form und starte mal das Proggi. Schau dir das mal an und sage mal bescheid ob du es so haben wolltest :smile:
Bedenke aber das am Anfang noch keine Eintraege vorhanden sind. Einfach mal ein paar reinschreiben und dann die Form beenden. Wenn du sie dann neu startest, sollten sie drinnen stehen :smile:

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias \_
 "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, \_
 ByVal wParam As Long, ByVal lParam As Long) As Long

Private MyData() As String
Private Pfad As String
Private Change As Boolean

Private Sub Combo1\_Change()
 If Change Then RefreshCombo (CBool(Len(Combo1.Text) = 0))
End Sub

Private Sub RefreshCombo(Status As Boolean) 'Combobox aktualisieren
Dim i As Integer
Dim OldTxt As String
OldTxt = Combo1.Text
Combo1.Clear
 For i = LBound(MyData) To UBound(MyData)
 If Status Then
 If MyData(i) "" Then Combo1.AddItem (MyData(i))
 Else
 If InStr(1, MyData(i), OldTxt, vbTextCompare) = 1 Then Combo1.AddItem (MyData(i))
 End If
 Next i
 Change = False
 Combo1.Text = OldTxt
 Combo1.SelStart = Len(Combo1.Text)
 Change = True
 If Combo1.ListCount \> 0 Then SendMessage Combo1.hwnd, &H14F, True, 0
 Me.Refresh
End Sub

Private Sub Combo1\_KeyPress(KeyAscii As Integer) 'Wir fragen das Enter ab und tragen die Daten ein!
Dim i As Integer
 If KeyAscii = 13 And Trim(Combo1.Text) "" Then
 If Not Exist Then
 For i = UBound(MyData) - 1 To LBound(MyData) Step -1
 MyData(i + 1) = MyData(i)
 Next i
 MyData(0) = Combo1.Text
 End If
 End If
End Sub

Private Function Exist() As Boolean 'Existiert ein Eintrag schon?
Dim i As Byte
For i = LBound(MyData) To UBound(MyData)
 If LCase(Combo1.Text) = LCase(Combo1.List(i)) Then
 Exist = True
 Exit Function
 End If
Next i
End Function

Private Sub Form\_Load()
 ReDim MyData(9) As String 'Wir erstellen ein Array. Hier kannst du die Grösse des Array's angeben. 9 = 10 Eintraege da er bei 0 beginnt mit zaehlen :wink:
 Pfad = "Gunter" 'App.ProductName 'Hat dein Project einen Namen, so kannst du App.Productname verwenden :wink:
 Call LoadData
End Sub

Private Sub SaveData() 'Daten in der Registry speichern
Dim i As Integer
On Error Resume Next
DeleteSetting Pfad, "History"
For i = LBound(MyData) To UBound(MyData)
 SaveSetting Pfad, "History", "History" & CStr(i), MyData(i)
Next i
End Sub

Private Sub LoadData() 'Daten aus der Registry holen
Dim vRet As Variant
Dim i As Integer
vRet = GetAllSettings(Pfad, "History")
If IsEmpty(vRet) Then Exit Sub
For i = UBound(vRet) To 0 Step -1
 MyData(UBound(vRet) - i) = CStr(vRet(i, 1))
Next i
Call RefreshCombo(True)
End Sub


Private Sub Form\_QueryUnload(Cancel As Integer, UnloadMode As Integer) 'Wir speichern die Daten
 Call SaveData
End Sub

Sollte Dir irgendwas am Source unklar sein, so sage einfach bescheid oder ob du da was anderes haben magst :smile:

MfG Alex

#29

Hallo Alex,

so komfortabel wollte ich es eigentlich gar nicht, aber ich habe einiges dazugelernt.

Ich habe den Eintrag in die Combox erst beim ENTER gemacht und die Historie nur beim Anklicken des Pfeiles angezeigt. Der letzt Eintrag
steht bei mir immer ganz oben.

Was mich bei deiner Version etwas stört ist, dass wenn ich einen neuen Eintrag mache und dann auf die Pfeiltsate gehe, nur den letzten Eintrag sehe.

An sonsten gefällt mir deine Lösung sehr gut.

Vielen Dank für deine Mühe.

Gruß
Gunter

Sollte Dir irgendwas am Source unklar sein, so sage einfach
bescheid oder ob du da was anderes haben magst :smile:

MfG Alex

#30

Hallo Gunter,

so komfortabel wollte ich es eigentlich gar nicht, aber ich
habe einiges dazugelernt.

Ach naja Komfortable nenne ich das noch nicht :wink: Dazu muesste man noch mehr implementieren :smile:

Ich habe den Eintrag in die Combox erst beim ENTER gemacht und
die Historie nur beim Anklicken des Pfeiles angezeigt. Der
letzt Eintrag
steht bei mir immer ganz oben.

Also der Eintrag in die History sowie in die Combobox, sollte eigentlich auch erst nach einem erfolgten Enter passieren :smile:
Wie du sicherlich gemerkt hast, arbeite ich intern mit einem Array!
Dieses lese ich zum Start ein und arbeite dann nur mit dem Array. Beim beenden wird dann das Array in die Registry geschrieben :smile:
Speichern tue ich die Eintraege in der Folge.

Sind 10 Eintraege vorhanden, so wird der 10 Eintrag gelöscht und alle Eintraege um 1 nach hinten geschoben. Der neue Eintrag wird dann an die 1 Stelle geschrieben! Nun wird die Combobox gelöscht und wieder gefuellt anhand des Array! Da der neue Eintrag nun an erster Stelle steht! Steht er Ergo auch in der Combobox an erster Stelle. Willst du das nicht, so aendere die Schleife einfach ab, indem du das Array von Oben nach Unten durchläufst :smile:

For i=ubound(MyArray) to lbound(MyArray)

Was mich bei deiner Version etwas stört ist, dass wenn ich
einen neuen Eintrag mache und dann auf die Pfeiltsate gehe,
nur den letzten Eintrag sehe.

Das ruehrt daher, das in der Combobox der neu eingetragene Text steht. Dieser wird dann im Array gesucht und in der Combobox angezeigt!

Wie möchtest du es nun haben?

1:Sollen prinzipiell alle Eintraege angezeigt werden, wenn auf den Pfeil geklickt wird

2:Nur wenn ein neuer Eintrag hinzugekommen ist?

Zu Fall 1: Mache dich einfach dem Klickereignis zu nutze.
Speichere dort einfach die Eingabe in einer Variablen. Lösche danach den Text, via Combo1.Text="". Dann sollte automatisch RefreshCombo aufgerufen werden und alle Daten werden eingetragen. Danach setze das Flag „Change“ auf False (glaub) und schreibe den Text der in der Variablen steht wieder in die Combobox. Durch das Flag wird die Combobox nicht automatisch aktualisiert. Danach setze das Flag „Change“ wieder auf True, damit spätere Änderungen sichtbar werden :smile:

Zu Fall 2:

Dazu mache dich dem Ereignis KeyPress zu nutze und da den ASCII Code 13, welchen ich schon verwendet habe. Lasse dort einfach die Routinen laufen die drinnen stehen. Danach gehe vor wie im Fall 1 :smile:

Wie du siehst kannst du die Aenderung sehr schnell implementieren :smile:

Vielen Dank für deine Mühe.

Nichts zu danken :smile: War ja net viel Arbeit und schnell getippselt :smile:

MfG Alex

#31

Hallo Alex,

habe die Version 1 versucht, das klappt aber nicht, da das Klickereignis nicht durchlaufen wird, wenn man die Pfeiltaste betätigt.

Gruß
Gunter

1:Sollen prinzipiell alle Eintraege angezeigt werden, wenn auf
den Pfeil geklickt wird

Zu Fall 1: Mache dich einfach dem Klickereignis zu nutze.
Speichere dort einfach die Eingabe in einer Variablen. Lösche
danach den Text, via Combo1.Text="". Dann sollte automatisch
RefreshCombo aufgerufen werden und alle Daten werden
eingetragen. Danach setze das Flag „Change“ auf False (glaub)
und schreibe den Text der in der Variablen steht wieder in die
Combobox. Durch das Flag wird die Combobox nicht automatisch
aktualisiert. Danach setze das Flag „Change“ wieder auf True,
damit spätere Änderungen sichtbar werden :smile:

#32

Hallo Gunter,

habe die Version 1 versucht, das klappt aber nicht, da das
Klickereignis nicht durchlaufen wird, wenn man die Pfeiltaste
betätigt.

Hm, ok ich dachte das das Click Ereignis ausgelöst wird. Aber da dies nicht der Fall ist, muessen wir einen anderen Weg gehen :smile:
Sobald sich die Combobox aufklappt, so wird das DropDown Ereignis aufgerufen! Nutze dies anstatt des Klick Ereignisses :smile:
Danach passe einfach den Code an und dann sollte es deinen Wünschen entsprechen :smile:
Ich hoffe nur das ich keinen Denkfehler habe. Aber selbst wenn dann schaue ich nochmal drueber und korrigiere es dann :smile:

Aber by the Way. Das was du vorhast, koennte sicher in vielen Anwendungen zu tragen kommen. Verstehst du nun warum ich da lieber zu einem Steuerelement neige? Lieber einmal sich Gedanken machen und den Source tippseln und dann einfach nur noch via Drag and Drop verwenden, als jedesmal alles neu zu schreiben oder darauf zu verzichten :smile:

MfG Alex

1 Like
#33

Hm, ok ich dachte das das Click Ereignis ausgelöst wird. Aber
da dies nicht der Fall ist, muessen wir einen anderen Weg
gehen :smile:
Sobald sich die Combobox aufklappt, so wird das DropDown
Ereignis aufgerufen! Nutze dies anstatt des Klick Ereignisses

Hallo Alex,

so funktioniert es.
Vielen Dank.

Gruß Gunter