Hallo Funkey !
Ich habe Dein Beispiel noch an einem weiteren PC (XP Pro; XP Home) probiert. An Beiden scheitert es an der Darstellung – Die GUI wird angezeigt keine Icons und kein Avi.
Hallo Funkey !
Ich habe Dein Beispiel noch an einem weiteren PC (XP Pro; XP Home) probiert. An Beiden scheitert es an der Darstellung – Die GUI wird angezeigt keine Icons und kein Avi.
Hallo Raupi,
danke für die Rückmeldung(en).
SiS in Ausgabe 4.0
Download siehe Post #1
Viel Spaß mit SiS !
Dank Dir Oscar ,
DLL Erstellung habe ich bisher auch so gemacht und dachte mir, dass Du vielleicht einen anderen Weg (leichter) kennst.
Zu 2. ist es die Auflösung, wie ich auch schon feststellen mußte in SiS.
Oscar ,
wie hast Du eigentlich die DLL erstellt und hätte man nicht bei nur Icons auch eine Icl-Datei nutzen können ?
ich habe es warscheinlich richtig gemacht, die Dateigrösse in Bytes ist gleich.
Doch leider sehe ich nur die GUI ohne die Ressourcen, warum auch immer ?
Auch in Deinem Beispiel ist es nicht anders, danke für Deine Bemühungen.
Wie ist es bei Anderen ?
beide den gleichen Gedanken !
funkey,
2x Icon und ein Avi erstellen ist nun möglich, nach Script und Dateigrösse.
Die Darstellung funktioniert jedoch noch nicht ?
Alles in "C:\TEST_DLL\" auch die "SourceFile.src", die GUI wird angezeigt ohne Ressourcen.
EDIT: Vielleicht ein Beispiel in ein Zip legen, was bei Dir geht (zum Testen) ?
bei mir leider keine Darstellung. Was könnte ich falsch gemacht haben ?
#Region 'Make SourceFile.au3'
$Datei = FileOpen(@ScriptDir&'\SourceFile.src', 4)
$Source_1 = FileRead($Datei, 1694) ;Dateigröße nicht verändern!
Do
$Source_File_1 = @TempDir & '\temp' & Hex(Random(0, 65535), 4) ;C:\TEST_DLL\info.ico
Until Not FileExists($Source_File_1)
$TempFile_1 = FileOpen($Source_File_1, 18)
FileWrite($TempFile_1, $Source_1)
FileClose($TempFile_1)
$Source_2 = FileRead($Datei, 3774) ;Dateigröße nicht verändern!
Do
$Source_File_2 = @TempDir & '\temp' & Hex(Random(0, 65535), 4) ;C:\TEST_DLL\compile.ico
Until Not FileExists($Source_File_2)
$TempFile_2 = FileOpen($Source_File_2, 18)
FileWrite($TempFile_2, $Source_2)
FileClose($TempFile_2)
$Source_3 = FileRead($Datei, 248404) ;Dateigröße nicht verändern!
Do
$Source_File_3 = @TempDir & '\temp' & Hex(Random(0, 65535), 4) ;C:\TEST_DLL\rdgo.avi
Until Not FileExists($Source_File_3)
$TempFile_3 = FileOpen($Source_File_3, 18)
FileWrite($TempFile_3, $Source_3)
FileClose($TempFile_3)
FileClose($Datei)
#EndRegion 'Make SourceFile.au3'
#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]GUICreate("Test Make SourceFile")
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateIcon($Source_File_1, -1, 5,5, 32,32)
GUICtrlCreateIcon($Source_File_2, -1, 55,55, 32,32)
GUICtrlCreateAvi($Source_File_3, -1, 5, 100)
GUICtrlSetState(-1, 1)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
Hi,
bin mir nicht sicher, ob "Shutdown(1 + 8 )" auch im Netzwerk funktioniert (siehe Hilfe) ?
[autoit]
Shutdown(1 +
Hi Funkey,
2x Icon und ein Avi erstellen ist nun möglich, nach Script und Dateigrösse.
Die Darstellung funktioniert jedoch noch nicht ?
#Region 'Make SourceFile.au3'
$Datei = FileOpen(@ScriptDir&'\SourceFile.dll', 4)
$Source_1 = FileRead($Datei, 248404)
Do
$Source_File_1 = @TempDir & '\temp' & Hex(Random(0, 65535), 4) ;C:\TEST_DLL\rdgo.avi
Until Not FileExists($Source_File_1)
$TempFile_1 = FileOpen($Source_File_1, 18)
FileWrite($TempFile_1, $Source_1)
FileClose($TempFile_1)
$Source_2 = FileRead($Datei, 3774)
Do
$Source_File_2 = @TempDir & '\temp' & Hex(Random(0, 65535), 4) ;C:\TEST_DLL\compile.ico
Until Not FileExists($Source_File_2)
$TempFile_2 = FileOpen($Source_File_2, 18)
FileWrite($TempFile_2, $Source_2)
FileClose($TempFile_2)
$Source_3 = FileRead($Datei, 1694)
Do
$Source_File_3 = @TempDir & '\temp' & Hex(Random(0, 65535), 4) ;C:\TEST_DLL\info.ico
Until Not FileExists($Source_File_3)
$TempFile_3 = FileOpen($Source_File_3, 18)
FileWrite($TempFile_3, $Source_3)
FileClose($TempFile_3)
FileClose($Datei)
#EndRegion 'Make SourceFile.au3'
#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]GUICreate("Test Make SourceFile", 500, 500, -1, 130)
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateAvi($Source_File_1, -1, 24, 10, 100, 100)
GUICtrlCreateIcon($Source_File_2, -1, 15,15, 32,32)
GUICtrlCreateIcon($Source_File_3, -1, 50,50, 32,32)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
; Ende
Allen schöne Feiertage !
Ich habe das Script um "CheckBox color" erweitert.
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Big Checkbox", 210, 180, 300, 233)
;i normale Checkbox
$Checkbox0 = GUICtrlCreateCheckbox("Checkbox basic", 30, 10, 150, 35)
;i Checkbox color
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox color", 30, 50, 150, 35)
GUICtrlSetColor(-1, 0xFF0000) ;i rot
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 7)
;i grosse Checkbox Schriftart und Grösse anders
$Checkbox2 = GUICtrlCreateCheckbox("Grosse Checkbox", 30, 90, 150, 35, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_PUSHLIKE,$WS_TABSTOP))
GUICtrlSetFont(-1, 12, 400, 0, "Wingdings")
;i grosse Checkbox mit Icon
$Checkbox3 = GUICtrlCreateCheckbox("&s", 30, 130, 150, 35, BitOR($BS_ICON, $BS_PUSHLIKE))
GUICtrlSetImage(-1, "shell32.dll", 7)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
;i ENDE
[/autoit]
Allen schöne Feiertage !
Hier einmal etwas anschaulicher:
#include <GUIConstantsEx.au3>
Dim $aCheckbox[20]
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Checkbox for MrB", 259, 500)
For $i = 0 To 19
$aCheckbox[$i] = GUICtrlCreateCheckbox("Check" & $i+1, 24, 32 + $i * 16, 65, 17)
Next
$Button1 = GUICtrlCreateButton("OK", 100, 40, 150, 33, 0)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
For $i = 0 To 19
If BitAND(GUICtrlRead($aCheckbox[$i]), $GUI_CHECKED) Then
MsgBox(0,"","Check" & $i+1 & " ist ausgewählt.")
ExitLoop
EndIf
Next
EndSwitch
WEnd
EDIT: Ja, dann siehe BugFix Post 12 oder 9
Viel Erfolg !
Hi, hat nichts mit Koda zu tun.
Einmal 27 Checkboxen, Bitteschön !
[autoit]
Global $aDatenCkb[27]
Global $aDaten[0, 2, ..., 26] ;i hier noch anpassen für 27
For $i = 0 To 26
$aDatenCkb[$i] = GUICtrlCreateCheckbox($aDaten[$i], 240, 20 + $i * 20, 105, 17)
;i create 27x Checkbox
Next
Abfrage besser so:
[autoit]
If BitAND(GUICtrlRead($DeineCheckBox]), $GUI_CHECKED) Then ;[...]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Big Checkbox", 235, 138, 299, 233)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox basic", 32, 10, 145, 35)
GUICtrlSetFont(-1, 12, 400, 0, "Wingdings")
$Checkbox2 = GUICtrlCreateCheckbox("Grosse Checkbox", 32, 50, 145, 35, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_PUSHLIKE,$WS_TABSTOP))
GUICtrlSetFont(-1, 12, 400, 0, "Wingdings")
$Checkbox3 = GUICtrlCreateCheckbox("&s", 32, 90, 145, 35, BitOR($BS_ICON, $BS_PUSHLIKE))
GUICtrlSetImage(-1, "shell32.dll", 7)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
;i ENDE
[/autoit]
Viel Erfolg !
Hi,
einzelne Dateien gehen bei mir nicht, also 2x Icon und ein Avi ?
Wie einbinden ?
$bn_Info = GUICtrlCreateButton("I", 10, 120, 26, 26, $BS_ICON)
GUICtrlSetOnEvent(-1, '_infoPressed')
;#####################################################
GUICtrlSetImage(-1, $Source_File_1)
;#####################################################
zu Post #4 besser so:
[autoit]
GUICtrlCreatePic(@SystemDir & "\oobe\images\mslogo.jpg", 50, 50, 200, 50)
Hi,
vielleicht unter ToolTip_UDF ?
http://www.autoitscript.com/forum/index.php?s=&showtopic=72983&view=findpost&p=532263
Hi Funkey,
ich habe mit dem ResHacker bereits erfolgreich zwei funktionstüchtige Dlls erstellt, siehe hier:
Outlook & OExpress Saver...
Sicher ist Sicher...
Hast Du für Deine Lösung auch ein Examples (Beispiel) ?