代码搜索：msgbox
找到约 3,543 项符合「msgbox」的源代码
代码结果 3,543
www.eeworm.com/read/216160/15025146
ats strcat.ats
Section Main
var @a as AtsString
@a = "abc"
msgbox @a
StrCat @a , "ssss"
msgbox @a
End Section
www.eeworm.com/read/216160/15025153
ats function3.ats
Section Main
Var @a as AtsString
Var @b as AtsString
@a = "1"
@b = "2"
xx(@a ,@b)
msgbox @a
msgbox @b
End Section
function xx(out @a as AtsString ,out @b as AtsString )
Var @c as AtsS
www.eeworm.com/read/216160/15025157
ats function_return.ats
Section Main
msgbox add( 3,4 )
End Section
function add( @x as AtsInt, @y as AtsInt ) as AtsInt
return @x +@y
end function
www.eeworm.com/read/216160/15025166
ats function2.ats
Section Main
msgbox xx("abc" ,"123")
End Section
function xx(@a as AtsString ,@b as AtsString )
return @a + @b
end function
www.eeworm.com/read/216160/15025167
ats datacpy.ats
Section Main
var @a as AtsString
@a = "abc"
msgbox @a
DataCpy @a , "ssss"
msgbox @a
End Section
www.eeworm.com/read/216160/15025225
txt demo1.txt
Section Main
msgbox xx( 1 ,3)
End Section
function xx(@a as AtsInt ,@b as AtsInt )
return @a + @b
end function
--------------------
Section Main
msgbox xx("abc" ,"123")
End Section
www.eeworm.com/read/215967/15031865
vb scmapp.vb
Public Class SCMApp
Public Function DeleByKey(ByVal TabNam As String, ByVal KeyCol As String, _
ByVal KeyVal As String) As Boolean
'提示用户并删除数据，TabNam表中KeyCol列值为KeyVal的记录
www.eeworm.com/read/114342/15057117
txt vb程序的加密 .txt
VB程序的加密
1.让软件只能在软盘上运行
利用App对象的Path属性返回可执行文件的路径进行判断。
Private Sub Form_Load()
Dim a As String
Dim b as String
a=App.Path '获得可执行文件的路径