WinWrap Basic Start Project notes

syntax examples for winwrap basic.txt

'#Language "WWB-COM"
Project Project1
    Optimizer On
    EntryPoint Main
    LoadModule "main.bas"
    LoadModule "module1.bas"
End Project



'#Language "WWB-COM"
Sub Main
    X = Shell("Calc") ' run the calc program
    AppActivate X
    SendKeys "% R" ' restore calc's main window
    SendKeys "30*2{+}10=",1 '70
End Sub


'#Language "WWB-COM"
Sub Main
    Debug.Print Replace$("abcabc","b","B")    '"aBcaBc"
    Debug.Print Replace$("abcabc","b","B",,1) '"aBcabc"
    Debug.Print Replace$("abcabc","b","B",3)  '"caBc"
    Debug.Print Replace$("abcabc","b","B",9)  '""
End Sub





'#Language "WWB-COM"
Sub Main
    Begin Dialog UserDialog 200,120
        Text 10,10,180,30,"Please push the OK button"
        OKButton 80,90,40,20
    End Dialog
    Dim dlg As UserDialog
    Dialog dlg ' show dialog (wait for ok)
End Sub





'#Language "WWB-COM"
Sub Main
    Begin Dialog UserDialog 200,120
        Text 10,10,180,15,"Please push the OK button"
        OKButton 80,90,40,20
    End Dialog
    Dim dlg As UserDialog
    Dialog dlg ' show dialog (wait for ok)
End Sub