易截截图软件、单文件、免安装、纯绿色、仅160KB

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
  &


相关文档:

VB编写托盘图标实例

VB编写托盘图标有两个要点,一是使用 Shell_NotifyIcon 函数显示图标;二是向系统注册 TaskbarCreated 消息,以便explorer崩溃时恢复托盘的图标。
首先需要增加一个模块文件,内容如下:
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOT ......

VB模拟按键

键盘是我们使用计算机的一个很重要的输入设备了,即使在鼠标大行其道的今天,很多程序依然离不开键盘来操作。但是有时候,一些重复性的,很繁琐的键盘操作 总会让人疲惫,于是就有了用程序来代替人们按键的方法,这样可以把很多重复性的键盘操作交给程序来模拟,省了很多精力,按键精灵就是这样的一个软件。那么 我们怎样才 ......

VB与FTP编程

Option Explicit
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const scuseragent = "vb wininet"
Private Const INTERNET_FLAG_PASSIVE = &H8000000
'调用设置环境
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long ......

VB六个数取最大值和平均数的平方

VERSION 5.00
Begin VB.Form Form2
   AutoRedraw      =   -1  'True
   Caption         =   "计算界面"
   ClientHeight    =   4905
   ClientLe ......

VB 单实例运行

VB6
在程序运行时用如下语句:
if   app.PrevInstance=true   then  
            end    
end   if
VB 2005:
1. 在VB2005中,打开"属性"页,启用"应用程序“框架, 选中"
单实例应用程序"前面复选框,就行了。
......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号