GUI - Button Style und Bilder

  • VBScript

    GUI - Button Style und Bilder

    Hey Leute,
    Als erstes würde ich erstmal gerne allen hier hallo sagen. Ich hoffe einfach mal darauf dass ich hier richtig bin und ihr meine kleine Rechtschreibschwäche akzeptiert (xD)

    Also nun zu meinem Problem:
    Ich bin schon seit einiger Zeit mit BAT am fahren. jedoch gibts dort keine GUI...
    Jetzt wollte ich mich mal dran wagen für ein etwas größeres Projekt zu arbeiten. Jedoch ist für sowas ne reine textausgabe nartürlich mist...

    Nach langem suchen habe ich nur einen lösungsansatz gefunden....

    Visual Basic-Quellcode

    1. Option Explicit
    2. Dim aOpt(4)
    3. aOpt(0) = "1"
    4. aOpt(1) = "2"
    5. aOpt(2) = "3"
    6. aOpt(3) = "4"
    7. aOpt(4) = "5"
    10. Dim objFSO, objFile, MeineVariable
    11. Const ForWriting = 2
    12. Const Create = trueSet objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
    13. Set objFile = objFSO.OpenTextFile("tmp.txt", ForWriting, Create)
    14. MeineVariable = SelectBox("test", aOpt)
    15. objFile.WriteLine MeineVariable
    16. objFile.closeSet objFile = nothing
    17. Set objFSO = nothing
    24. Function SelectBox(sTitle, aOptions)
    25. Dim oIE, s, item
    26. set oIE = CreateObject("InternetExplorer.Application")
    27. With oIE
    28. .ToolBar = False : .RegisterAsDropTarget = False
    29. .StatusBar = False : .Navigate("about:blank")
    30. While .Busy : WScript.Sleep 100 : Wend
    31. With .document
    32. With .parentWindow
    33. if Instr(.navigator.appVersion, "MSIE 6") > 0 Then
    34. oIE.FullScreen = True
    35. End if
    36. oIE.width = 400 : oIE.height = 150
    37. oIE.left = .screen.width \ 2 - 200
    38. oIE.top = .screen.height\ 2 - 75
    39. End With ' ParentWindow
    40. s = "<html><head><title>" & sTitle & " " & String(80, ".") _
    41. & "</title></head><script language=vbs>bWait=true</script>" _
    42. & "<body bgColor=Silver><center><b>" & sTitle & "<b><p>" _
    43. & "<select id=entries size=1 style='width:250px'>" _
    44. & " <option selected>" & sTitle & "</option>"
    45. For each item in aOptions
    46. s = s & " <option>" & item & "</option>"
    47. Next
    48. s = s & " </select><p>" _
    49. & "<button id=but0 onclick='bWait=false'>OK</button>" _
    50. & "</center></body></html>"
    51. .WriteLn(s)
    52. With .body
    53. .scroll="no"
    54. .style.borderStyle = "outset"
    55. .style.borderWidth = "3px"
    56. End With ' Body
    57. .all.entries.focus
    58. oIE.Visible = True
    59. On Error Resume Next
    60. While .ParentWindow.bWait
    61. WScript.Sleep 100
    62. if oIE.Visible Then SelectBox = "Aborted"
    63. if Err Then Exit Function
    64. Wend ' Wait
    65. On Error Goto 0
    66. With .ParentWindow.entries
    67. SelectBox = .options(.selectedIndex).text
    68. End With
    69. End With ' document
    70. .Visible = False
    71. End With ' IE
    72. End Function



    Wie die Experten hier sehen können (also alle auser ich xD) wird hier halt ne Dropdpwn GUI erstellt. Das ganze läuft auch ohne HTA ab (Zum Glück...)
    Das endergebnis wird halt in ner txt-datei gespeichert (Zwichenverarbeitung durch BAT)

    Su nun denn...
    jedoch hätte ich halt lieber ein GUI mit Buttons...

    Ich will jetzt aber nartürlich nicht nen Quellcode in dem alles fertig ist... villeicht ein paar Hilfestellungen (TUTs oder sowas [hab da nach ewiger Forensuche und googeln nix gefunden...]) und/oder Codeschnipsel die mir Helfen könnten...

    da ich blutiger anfänger in VBS bin seit bitte ned Böse wenn ich nicht alles Verstehe ^^

    MFG
    note