from vb2py.vbfunctions import *
MyGlobal = Integer()
MyInt = Integer()
MyReal = Single()
MyVar = Variant()
x = Variant()
Suby = Variant()
Functioni = Variant()
a = Variant()
b = String()
c = Variant()
d = Variant()
zz = Variant()
dddd = 12
eeee = 'hello there'
g = Variant()
e = vbObjectInitialize((10,), Variant)
f = vbObjectInitialize((12, 10, 5,), String)
def btnChange_Click():
if chkAdd.Value:
txtValue.text = CStr(doAnAdd(CInt(txtValue.text), 1))
elif chkSub.Value:
txtValue.text = CStr(doAnAdd(CInt(txtValue.text), - 1))
def btnDirectHide_Click():
btnDirectHide.visible = False
def btnDoIt_Click():
lblLabel.text = txtName.text + txtSecond.text
def btnHideMe_Click():
#HideSomething (btnHideMe)
pass
def btnSecond_Click():
frmSecond.Show()
def doAnAdd(Value, Adding):
_ret = None
_ret = Value + Adding
return _ret
def HideSomething(btn):
btn.visible = False
def btnZeroIt_Click():
txtValue.text = '0'
def Command1_Click():
frmRadio.Show()
def Factorial(n):
_ret = None
if n == 0:
_ret = 1
else:
_ret = n * Factorial(n - 1)
return _ret
def test():
Debug.Print(a, '!')
# VB2PY (UntranslatedCode) Attribute VB_Name = "Module1"
|