VB 简单计算器
Option Explicit
Dim potflag As Integer '标识是否用小数点
Dim numcol As Integer ' 点击运算符的个数
Dim LastInput ' 指示上一次操作的内容
Dim colflag 'numcol为1时，保存运算符
Dim temp1, temp2 '分别保存运算符两端的运算数
Private Sub CmdCel_Click() '重新开始计算按钮，个计量数和标识初始化
Res = Format(0, "0.")
temp1 = 0
temp2 = 0
numcol = 0
potflag = False
LastInput = "cel" '标识此操作为"cel"
End Sub
Private Sub CmdPot_Click() '使用小数点
If LastInput <> "num" Then
Res = Format(0, "0.")
ElseIf String(1, Res) = "-" Then
Res = Format(0, "-0.")
End If
potflag = True
LastInput = "num" '标识此操作为"num"
End Sub
Private Sub Cmdsign_Click() '使用正负号
If String(1, Res) <> "-" Then '如果当前是正数添加负号
Res = "-" & Res
Else: Res = Right(Res, Len(Res) - 1) '如果当前是证号，取消负号
End If
LastInput = "num" '标识此操作为"num"
End Sub
Private Sub ComCol_Click(Index As Integer) '点击操作符，可进行连续运算
numcol = numcol + 1 '通过numcol标识点击运算符的次数
If numcol = 1 Then '当前数为操作符左侧运算数时，记录当前操作数
temp1 = Res
&
相关文档：
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim Url As String, Filepath As String
Url = "h ......
VB6
在程序运行时用如下语句：
if app.PrevInstance=true then
end
end if
VB 2005:
1. 在VB2005中,打开"属性"页,启用"应用程序“框架, 选中"
单实例应用程序"前面复选框,就行了。
......
在工程中添加一个类模块，名为 Selection
然后加入以下代码：
Dim colRows As Collection
Dim ControlKey As Boolean
Public WithEvents flx As M ......
MYSQL 应用十分广范，很多网站几乎都在用他，因为他的小巧和灵活性等方面让我决定要对他进行研究，到现在已经成功的不用经过ODBC，ADO等方式就可以读取和更新数据。
好了不多罗嗦，以下我来介绍总个程序的细节:
（一）API声明
1. '分配或初始化适合mysql_real_connect()的一个MYSQL对像� ......
