有请VB程序设计高手

来源：百度知道 编辑：UC知道 时间：2024/06/16 21:05:21
我急需一个VB程序案本，有没有高手能给我一个自己做的小程序的源代码或者压缩文件，急！！！！！！！！！！！！！！好的话我会追加分的！！！
随便一个小程序就行啦，无内容限制，高手们发挥一下la，例如计算器拉，这种小程序就OK！

简单记事本的代码
Dim b As String
Dim a As String
Dim m As String
Dim x As String
Private Declare Function SetWindowPos Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long _
) As Long
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Private Sub baocun_Click()
Dim abc As String
If Len(Trim(m)) = 0 Then
m = "f:"
End If
abc = m & "\" & Text2.Text & ".txt"
Open abc For Output As #1
Write #1, Text1.Text
Close #1
Label2.Caption = "保存的路径为：" & m & "\" & Text2.Text & ".txt"
a = MsgBox("保存成功！" & Chr(13) & "是否退出程序", 4 + 64 + 0, "提示")
If a = vbYes Then
End
End If
End Sub
Private Sub Command1_Click()
Dir1.Visible = False
Drive1.Vi