dann vergrößert man das control eben nach unten?
denkt halt mal nach, wenigstens ein bissl!
dann vergrößert man das control eben nach unten?
denkt halt mal nach, wenigstens ein bissl!
Weltfrieden wirds nie geben. Da sind immer welche dabei, die die absolute Kontrolle über alle/s haben wollen.
Mag jetzt zwar etwas krank oder makaber rüberkommen, aber wenn wirklich allen Menschen auf der Erde geholfen würde, sodass niemand mehr verreckt, gibts ne größere und schnellere Überbevölkerung als eh schon - und dann geht die Welt noch schneller den Bach runter als eh schon.
Denk(t) mal drüber nach.
x0r
was weiss ich, bei mir gehts:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
dim $start_size = 11
dim $font = "Arial"
dim $resize, $resize_old
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 80, 192, 114)
$Input1 = GUICtrlCreateInput("Input1", 16, 24, $start_size, 21)
GUICtrlSetFont(-1, 9, 400, 0, $font)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$resize = StringLen(GUICtrlRead($Input1)) * 6
[/autoit] [autoit][/autoit] [autoit]if $resize_old <> $resize then
GUICtrlSetPos($Input1, 16, 24, $resize + $start_size, 21)
$resize_old = $resize
EndIf
WEnd
Eine Zeile angepasst, die Zahl um 1 erhöht (so genau kannst das eh nicht machen, da die Buchstaben unterschiedliche Breite haben (es sei denn, du fragst jeden vorher ab).
ZitatSimon nörgelt, Simon nervt - aber Simon verbessert die Welt. Glaubt er.
...ist ein Satz auf der Rückseite vom Buch "Vollidiot" "Millionär" (Tommy Jaud) - gefällt mir, stimmt zu 100% - und ich heisse Simon!
dann bedient dich, editiers und bau um, ist open source
Welcome!
Vorsicht, Gemecker:
Eine "Vorstellung" stell ich mir aber ein bissl anders vor
Gruß
x0r
Hi,
aus aktuellem Anlass (laut Shoutbox (ausser ich habs falsch interpretiert, egal! :D)):
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
dim $start_size = 20, $resize, $resize_old
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 80, 192, 114)
$Input1 = GUICtrlCreateInput("Input1", 16, 24, $start_size, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$resize = StringLen(GUICtrlRead($Input1)) * 6
[/autoit] [autoit][/autoit] [autoit]if $resize_old <> $resize then
GUICtrlSetPos($Input1, 16, 24, $resize + $start_size, 21)
$resize_old = $resize
EndIf
WEnd
[/autoit]Funktioniert ganz gut, denk ich. Lässt sich sicherlich auch auf andere Controls ausweiten
Gruß
x0r
ein neuer Satz Motorradreifen - Dunlop Roadsmart 2
Den Vorgänger fahr ich seit 3 Jahren und bin voll begeistert, der neue soll aber noch besser sein, drum wird der getestet!
- Alternativ: Die Kohle dafür!
Hi,
du hast da noch
- Arrays
vergessen
AutoItSetOption("MouseClickDelay",<delay in ms>)
AutoItSetOption("MouseClickDelay",100)
also hier in der Firma funktionierts. Einfach ganz normal die Einlog-Daten verwenden, ohne "Domain" oder solche Scherze.
Füg dir mal ein Beispiel an (ist schon bestimmt 2 Jahre her, dass ich das gebaut hab :))
func sqlread()
local $str, $plz, $ort, $vorwahl, $tel, $bl
local $sqlCon
local $sqlVar
if GUICtrlRead($Radio1) = 1 then $select = "where Plz = " & GUICtrlRead($Input1)
if GUICtrlRead($Radio2) = 1 then $select = "where Ort = '" & GUICtrlRead($Input1) & "'"
if GUICtrlRead($Radio3) = 1 then $select = "where Vorwahl = " & GUICtrlRead($Input1)
$sqlCon = _MSSQL_Con("DNS-des-Servers","User","Password","Datenbank")
[/autoit] [autoit][/autoit] [autoit]$sqlVar = $sqlCon.execute("SELECT * FROM Tabelle " & $select & " order by Plz;")
[/autoit] [autoit][/autoit] [autoit];~ $sqlVar = $sqlCon.execute("SELECT * FROM Tabelle;")
[/autoit] [autoit][/autoit] [autoit]With $sqlVar
While Not .EOF
$id = .Fields("ID").value
$ort = .Fields("Ort").value
$plz = .Fields("Plz").value
$tel = .Fields("Vorwahl").value
$bl = .Fields("BL").value
while stringlen($plz) < 5
$plz = 0 & $plz
WEnd
if StringLeft($tel,1) <> '0' Then
$tel = 0 & $tel
EndIf
$str = $plz & chr(9)& $ort & chr(9) & $tel & chr(9) & $bl
[/autoit] [autoit][/autoit] [autoit];~ if StringLen($str) > 15 then GUICtrlSetData($output,GUICtrlRead($output) & $str & @CRLF)
FileWrite("temp.txt",$str & @CRLF)
.MoveNext
WEnd
EndWith
_MSSQL_End($sqlCon)
EndFunc
Das war quasi mein erster MS-SQL-Abfrage-Test
(über mysql gehts viel schöner find ich)
€dit: So findest du wenigstens raus, ob die Connection überhaupt klappt - wegen der Windows Authentifizierung kannst dir danach noch Gedanken machen.
Gruß
x0r
es ging mir auch eher um "$server" und "$database" :]
Hi,
wie sieht dein Connection-String aus?
€dit: Ich benutze folgende Funktion aus der "mssql.au3" und es funktioniert:
;===============================================================================
;
; Function Name....: _MSSQL_Con
; Description......: Connect to a Database
; Syntax...........: _MSSQL_Con($scIP, $scUser, $scPass, $scDB)
; Parameter(s).....: $scIP = IP adress
; $scUser = User
; $scPass = Pass
; $scDB = Database
; Return Value(s)..: Success - Returns the Database-"handle"
;
;===============================================================================
Func _MSSQL_Con($scIP, $scUser, $scPass, $scDB)
Local $sqlCon
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("Provider=SQLOLEDB; Data Source=" & $scIP & "; User ID=" & $scUser & "; Password=" & $scPass & "; database=" & $scDB & ";")
Return $sqlCon
EndFunc ;==>_MSSQL_Con
Gruß
x0r
tjaaaa...
hab auch lange gesucht/gewartet
Hi,
also wenn ich was zocke oder schreibe, sitzt meine Freundin meist daneben und zockt mit..
Da nervt mich oft ihre seltsame Musik im Game, aber das is ja nix, was sich nicht ohne Tools beheben liese
Ansonsten gute Lösung. Hatte mal einem Kollegen was gebaut, der viel mit dem "calc" arbeitet (hat einen Hotkey dafür). Wenn er den drückt, geht ein neuer Calc auf - allerdings auch, wenn schon einer offen ist - das Problem hab ich behoben
Gruß
x0r
Zitatda spricht man nicht gleich von nem JDownloader...
hab ich auch nicht, ich hab geschrieben:
Zitatklingt [...] ein bissl nach "JDownloader"
Hi,
du schreibst ziemlich seltsam.
Ausserdem: Schonmal nachgesehen, wieviel ein Programmierer die STUNDE verlangt?
Da kommst mit deinen 35€ nicht weit
P.S.: Wenn man das ganze FTP-Zeug weg lässt, klingt deine Beschreibung ein bissl nach "JDownloader", bzw wie irgendein P2P-Programm.
Gruß
x0r
kannst ja die datei-attribute der batch auf "versteckt" setzen, dann sieht man die nicht mehr xD
spass beiseite.. schätze mal dein ansatz ist nicht schlecht, hast du denn die sache mit "= -1" statt "= 0" versucht?
-> datei/ordner gelöscht = -1
so funktionierts doch und ob du jetz ne batch anlegst und danach wieder löscht, ist doch wurscht.
das script bleibt so lange stehen, bis die batch wieder geschlossen ist und eben der jeweilige löschvorgang beendet.
also warum "versuch"?
vielleicht eher nicht ganz optimal, wenn doch auch ziemlich interessant
[autoit]dim $delbat = @ScriptDir & "\del.bat"
dim $delordner = @ScriptDir & "\test_delete"
FileWrite($delbat,"rmdir /s /q " & $delordner)
[/autoit][autoit][/autoit][autoit]ShellExecuteWait($delbat)
MsgBox(0,"gelöscht",$delordner)
FileDelete($delbat)
MsgBox(0,"bat weg",$delbat)
und jetz schlagt mich bitte nicht
€dit die 300ste: klappt nur mit Batch -.-