回 帖 发 新 帖 刷新版面

主题:[讨论]新手请教代码问题

[em1]自学了一段时间的VB,终于自己能写个用的着的小程序了!心里很高兴[em8]!
自动关机的,写的很粗糙,运行后占2M的内存!我想问下我这代码是不是有问题,这么写有哪些缺点
Dim t As String
Dim a As String
Dim b As String

Private Sub Command1_Click()

a = Combo4 & "-" & Combo3 & "-" & Combo2 & " " & Combo1 & ":" & Combo5 & ":" & Combo6
Print a

Text1.Text = Combo4 & "-" & Combo3 & "-" & Combo2 & " " & Combo1 & ":" & Combo5 & ":" & Combo6



End Sub

Private Sub Timer1_Timer()
t = Now()
Form1.Caption = t
Label1.Caption = t

b = Text1.Text

If t = b Then
 Shell "shutdown -S -t 6"
End If
End Sub

回复列表 (共3个回复)

沙发

不错,还能想到看占多少内存.2M并不多,呵呵.不过这多半不是你的问题,因为VB编程,甚至于WINDOWS编程,不由自己决定的东西太多了.

板凳

至于为什么占那么些内存,我不知道。
但是从你的代码看,确实有需要改进的地方:
1、
Text1.Text = Combo4 & "-" & Combo3 & "-" & Combo2 & " " & Combo1 & ":" & Combo5 & ":" & Combo6
可以改为
Text1.Text = a
2、
变量b取消不用
3、
b = Text1.Text
If t = b Then
可以改为
If t = a Then

当然这些改动,对改善内存的占用、提高效率的贡献是微乎其微的。

3 楼

对编程有兴趣的加群73208436

我来回复

您尚未登录,请登录后再回复。点此登录或注册