Hay
habe mal wieder ein kleines Problem 
In einer ImputBox sollen nur Zahlen von 0-8 erkannt werden.
Aber leider weiß ich ich nciht wie das mit 8 > oder so
Naja bis jetzt bin ich so weit:
[autoit]If $InputBox1 = "8" or "0" or > "8" Then
ToolTip("Die Zahl ist größer als 8 oder 0")
Sleep(1000)
Else
EndIf
Oeffnen()
[url='http://translation.autoit.de/onlinehilfe/keywords.htm']
[autoit]If (($InputBox1 =0) Or ($InputBox1 > 8 )) Then
ToolTip("Die Zahl ist größer als 8 oder 0")
Sleep(1000)
Else
EndIf
Oeffnen()
Habe noch ein Problem.
Wenn ich das:
Case $Schriftgr
$InputBox1 = InputBox("Schriftgröße","Bitte geben sie die Schriftgröße ein."&@CRLF&"Die Zahl darf nur zwischen 1 und 7 sein.")
If $InputBox1 = (($InputBox1 = 8 ) or ($InputBox1 = 0) or ($InputBox1 > 8)) Then
ToolTip("Die Zahl ist größer als 8 oder 0")
Sleep(1000)
Else
Oeffnen()
Send('<FONT SIZE='&GUICtrlRead($InputBox1)&'>'GUICtrlRead($Input1)'</FONT>')
EndIf
Ausführe Stürzt der Script und folgende fehlermeldung kommt:
Send('<FONT SIZE='&GUICtrlRead($InputBox1)&'>'GUICtrlRead($Input1)'</FONT>',1)
Send(^ ERROR
>Exit code: 1 Time: 6.476
Da fehlen &-Zeichen
[autoit]Send('<FONT SIZE='&GUICtrlRead($InputBox1)&'>'&GUICtrlRead($Input1)&'</FONT>')
[/autoit]Case $Schriftgr
$InputBox1 = InputBox("Schriftgröße","Bitte geben sie die Schriftgröße ein."&@CRLF&"Die Zahl darf nur zwischen 1 und 7 sein.")
If (($InputBox1 = 8 ) or ($InputBox1 = 0) or ($InputBox1 > 8)) Then
ToolTip("Die Zahl ist größer als 8 oder 0")
Sleep(1000)
Else
Oeffnen()
Send('<FONT SIZE='&GUICtrlRead($InputBox1)&'>'&GUICtrlRead($Input1)&'</FONT>')
EndIf
was mir gerade noch auffällt:
[autoit]
GUICtrlRead($InputBox1)
bei $inputbox1 brauchst du das guictrlread nicht.
du speicherst ja den wert den die inputbox zurückgibt schon in der variable $inputbox1.
d.h. einfach die send zeile so:
Send('<FONT SIZE='&$InputBox1&'>'&GUICtrlRead($Input1)&'</FONT>')
[/autoit]edit: ups sry für doppelpost
THX an alle
Hallo!
Das ist wieder mal ein wunderschönes Beispiel für "Usability" in einer GUI, wie sie NICHT sein sollte.
Wieso gehst du nicht hin und machst eine "Standard"-Größenabfrage, wie sie für Schriften üblich ist?
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Auswahl")
$Combo1 = GUICtrlCreateCombo("Schriftgröße ", 40, 32, 90, 25)
GUICtrlSetData(-1, "7 Punkt|6 Punkt|5 Punkt|4 Punkt|3 Punkt|2 Punkt|1 Punkt", "")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Combo1
$a=stringleft(guictrlread($combo1),1)
Msgbox(0,"Schriftgröße",$a,1)
EndSwitch
[/autoit] [autoit][/autoit] [autoit]WEnd
[/autoit] [autoit][/autoit] [autoit][/autoit]
