大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这是捕捉键盘热键,例如QQ写的一个抓屏功能,同时按下Ctrl+Alt+A 就会自动 跳出抓屏。
成都创新互联,为您提供重庆网站建设、重庆网站制作、网站营销推广、网站开发设计,对服务成都阳光房等多个行业拥有丰富的网站建设及推广经验。成都创新互联网站建设公司成立于2013年,提供专业网站制作报价服务,我们深知市场的竞争激烈,认真对待每位客户,为客户提供赏心悦目的作品。 与客户共同发展进步,是我们永远的责任!
也就是说上面这段代码自动获取到的热键符合Ctrl+Alt+A 的命令,所以才会执行事件。
If m.Msg = WM_SYSCOMMAND Then' 如果m 的热键码 有系统命令 执行以下事件。
下面这段代码,是我用来计算每个月存500元进银行,连续30年,最后连本带利能有多少钱。这里面涉及复利计算。界面中右边的文本框用来输出每一次计算的结果。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nianxian As Integer '年限变量
Dim dingcun As Integer '定存变量
Dim fuli_big As Long '大复利
Dim fuli_small As Long '小复利
Dim i As Integer '循环变量
Dim DATAstring As String '数据字符串
nianxian = Val(年限_TextBox.Text)
dingcun = Val(定存_TextBox.Text)
DATAstring = ""
For i = 1 To nianxian
fuli_small = dingcun * (1 + 0.1875)
dingcun = fuli_small
fuli_big = fuli_big + fuli_small
DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)
'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)
Next
'fuli_big = fuli_small
TextBox1.Text = DATAstring
结果_TextBox.Text = Str(fuli_big) + "元"
End Sub
vb.net采用的GDI+实现图形绘制,不再使用VB6的Print、Line等语句
'改成这样试试
Sub Add(ByVal a As Integer, ByVal b As Integer)
a=a+1
b+b+1
End Sub