Beiträge von Frank_S
-
-
Hier mal ein Bild vom Tool unter Excel.
-
Ok, das sieht doch vielversprechend aus und ich gebe der Sprache noch eine Chance, smile.
Ja, ich bin Eventbasiertes programmieren gewöhnt und muss hier total umdenken. Mein Tool ist unter Excel mit VBA komplett fertig und läuft seit über einem Jahr bei uns in der Firma und dient zum Ausdrucken von kommissionierten Artikeln samt Seriennummer und Etiketten für die Pakete (reine Kennzeichnung, bevor DHL Aufkleber drauf kommen).
Grund ist, ich will und muss weg von dem Excelunterbau, hin zu was eigenständigem. VB.NET geht auf Grund von Lizenzen und Kosten nicht. Deshalb suche ich etwas, wo man schnell und einfach GUI's erstellen kann und dieser GUI schnell eine Logik verpassen kann.
Viele Grüße, Frank
-
Ok, 1:0 für dich.
Aber in VBA brauche ich für mein Sache mit den Großbuchstaben trotzdem nur eine Zeile Code.
z.B. so:
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = UCase(TextBox3.Value)
End Sub ===> für Eingaben die per Strg.+V reinkommen
UND
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
KeyAscii = keycheck(KeyAscii)
End Sub ===> für normale Tastatureingaben mit Check auf erlaubte Zeichen
-
Hi, super. Das funktioniert. Ist aber extrem aufwändig und ich überlege aus diesem Grund, AutoIt schnell wieder den Rücken zu kehren und mir eine logischere Programmiersprache zu suchen.
Vielen Dank für deine Geduld und Mühe.
-
Hallo BugFix,
vielen Dank für deine Mühe. Doch leider klappt das zurückschreiben noch nicht. Außerdem reagiert die Umwandlung erst, wenn man die Inputbox wieder verläßt. Es muss aber jede Eingabe sofort in Großbuchstaben in der Box stehen. Beispiel, ich tippe ein "tkm" und in der Box erscheint "TKM"
Hier noch mal der komplete Code, der nur ein Gerüst ist:
C
Alles anzeigen[tt] #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=h:\downloads\koda designer autoit\forms\pkt_01.kxf $Form1 = GUICreate("PosKomTool", 900, 770, 319, 134) $MenuItem1 = GUICtrlCreateMenu("&Datei") $MenuItem3 = GUICtrlCreateMenuItem("Datei speichern", $MenuItem1) $MenuItem2 = GUICtrlCreateMenuItem("Beenden", $MenuItem1) $MenuItem4 = GUICtrlCreateMenu("&Extras") $MenuItem7 = GUICtrlCreateMenuItem("Einstellungen", $MenuItem4) $MenuItem6 = GUICtrlCreateMenuItem("Einst. sichern", $MenuItem4) $MenuItem5 = GUICtrlCreateMenu("&Hilfe") $MenuItem8 = GUICtrlCreateMenuItem("Über", $MenuItem5) $btnNeu = GUICtrlCreateButton("&Neues Ticket", 424, 64, 193, 40) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0x00FF00) $fraHardware = GUICtrlCreateGroup("Hardware von:", 24, 112, 377, 417) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xC0C0C0) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKBOTTOM + $GUI_DOCKHCENTER) $Button1 = GUICtrlCreateButton("Button1", 40, 152, 165, 33) $Button2 = GUICtrlCreateButton("Button11", 216, 152, 165, 33) $Button3 = GUICtrlCreateButton("Button2", 40, 188, 165, 33) $Button4 = GUICtrlCreateButton("Button12", 216, 188, 165, 33) $Button5 = GUICtrlCreateButton("Button3", 40, 224, 165, 33) $Button6 = GUICtrlCreateButton("Button13", 214, 224, 165, 33) $Button7 = GUICtrlCreateButton("Button4", 40, 260, 165, 33) $Button8 = GUICtrlCreateButton("Button5", 40, 296, 165, 33) $Button9 = GUICtrlCreateButton("Button6", 40, 332, 165, 33) $Button10 = GUICtrlCreateButton("Button7", 40, 368, 165, 33) $Button11 = GUICtrlCreateButton("Button14", 214, 260, 165, 33) $Button12 = GUICtrlCreateButton("Button15", 214, 296, 165, 33) $Button13 = GUICtrlCreateButton("Button16", 214, 332, 165, 33) $Button14 = GUICtrlCreateButton("Button17", 214, 368, 165, 33) $Button15 = GUICtrlCreateButton("Button8", 40, 404, 165, 33) $Button16 = GUICtrlCreateButton("Button9", 40, 440, 165, 33) $Button17 = GUICtrlCreateButton("Button10", 40, 476, 165, 33) $Button18 = GUICtrlCreateButton("Button18", 214, 404, 165, 33) $Button19 = GUICtrlCreateButton("Button19", 214, 440, 165, 33) $Button20 = GUICtrlCreateButton("Button20", 214, 476, 165, 33) GUICtrlCreateGroup("", -99, -99, 1, 1) $comUser = GUICtrlCreateCombo("", 624, 64, 201, 40, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL, $CBS_NOINTEGRALHEIGHT, $CBS_UPPERCASE)) GUICtrlSetData(-1, "POSREPAIR|F.SCHOENBRODT|M.FISCHER|S.BRAEKER", "POSREPAIR") GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $txtKunde = GUICtrlCreateInput("", 424, 120, 49, 28, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER)) GUICtrlSetLimit(-1, 3) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $txtVST = GUICtrlCreateInput("123456789012", 477, 122, 137, 28, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER)) GUICtrlSetLimit(-1, 12) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $txtID = GUICtrlCreateInput("20191206-1000001082", 622, 121, 201, 28, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER)) GUICtrlSetLimit(-1, 12) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $txtBemerkung = GUICtrlCreateEdit("", 24, 48, 241, 57) GUICtrlSetData(-1, "txtBemerkung") $comPakete = GUICtrlCreateCombo("", 424, 160, 193, 30, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "x|kein Versand|1|2|3|4|5|6|7|8|9|10") GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $txtKunde $txtKunde = (GuiCtrlRead($txtKunde)) $txtKunde = StringUpper($txtKunde) ;msgbox(0,"Test",$txtkunde,1) controlsettext("",$txtkunde,$txtkunde,StringUpper($txtKunde)) GUICtrlSendMsg($txtkunde,$txtKunde,0,40) Case $btnNeu Case $comUser Case $comPakete EndSwitch WEnd [/tt] Einen schönen Sonntag wünsche ich, Frank -
Hi vielen Dank für die Antwort. Aber genau da liegt mein Unverständnis.
Hier mal ein Auszug aus meinen Versuchen:
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $txtKunde
;$txtKunde = StringUpper($txtKunde)
controlsettext("",$txtkunde,$txtkunde,StringUpper($txtKunde))
;GUICtrlSendMsg($txtkunde,StringUpper($txtKunde),0,40)
$txtKunde ist die Eingabebox (Textfeld)
Leider alles ohne Erfolg, die Eingaben in Kleinbuchstaben bleiben klein.
-
Hallo Leute, da ich von VBA komme, finde ich einiges in AutoIt schwieriger, oder bin nur zu doof.
Gerade suche ich eine Möglichkeit, alle Eingaben/jeden Tastendruck sofort in Großbuchstaben zu wandeln.
Habe bisher schon ControlSetText und GUICtrlSendMsg versucht, aber leider ohne Erfolg.
Wie kann ich das Problem angeben, zumal es in AutoIt ja nur Messages gibt und keine zig Events pro Control (KeyPress, Click, Exit usw.).
Bitte freundlich um Hilfe.
