DIM 和 CONST 的用法有什么不同?

xpknrg2 2004-09-01 01:30:10

RT

...全文

159 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

KahnWinsock 2004-09-01

打赏
举报

回复

致作者：
dim 是用来声明变量的。
const 是用来声明常量的。

高中信息技术-VB语言基础.pptx

vb中5种打开文件夹浏览框的方法总结

VB编程小技巧汇总.doc

mwArray类使用

用法: Public Const AppName As String = "程序名" Public Const CopyExe As String = "FastCopy" Public Sub ExeRefresh() 'Dim LocalAppNamePath As String Dim LocalAppNameDate As String Dim LocalCopyNameDate As String Dim NetAppNameDate As String On Error Resume Next If Len(App.Path) > 3 Then ' LocalAppNamePath = App.Path & "\" & AppName & ".exe" LocalAppNameDate = FileDateTime(App.Path & "\" & AppName & ".exe") LocalCopyNameDate = FileDateTime(App.Path & "\" & CopyExe & ".exe") Else ' LocalAppNamePath = App.Path & "\" & AppName & ".exe" LocalAppNameDate = FileDateTime(App.Path & AppName & ".exe") LocalCopyNameDate = FileDateTime(App.Path & CopyExe & ".exe") End If NetAppNameDate = FileDateTime(UpdateExePath & AppName & ".exe") If LocalAppNameDate = "" Or NetAppNameDate = "" Then Exit Sub If CDate(LocalAppNameDate) < CDate(NetAppNameDate) Then FileCopy UpdateExePath & CopyExe & ".exe", App.Path & "\" & CopyExe & ".exe" LocalAppNameDate = Shell(App.Path & "\" & CopyExe & ".exe" + " " + UpdateExePath + "," + AppName + ".exe", vbNormalFocus) End End If End Sub

16,721

社区成员

110,524

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章