![](https://img-blog.csdnimg.cn/20201014180756916.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB
文章平均质量分 64
写一辈子程序
这个作者很懒,什么都没留下…
展开
-
VB6 Switch和Choose的用法
Option Explicit Private Sub Command1_Click() 'VB的Switch语句 Dim strKey As String Dim strGetValue As String strKey = "2" strGetValue = Switch(strKey =原创 2014-01-10 11:47:05 · 7011 阅读 · 0 评论 -
VB 无键盘鼠标操作锁屏
Private Declare Function GetLastInputInfo Lib "user32" (plii As LASTINPUTINFO) As Boolean Private Type LASTINPUTINFO cbSize As Long dwTime As Long End Type Dim IOInfo As LASTINPUTINFO原创 2014-05-06 14:36:52 · 1249 阅读 · 0 评论 -
VB 读写UTF8文件
1.VB写入utf-8文本文件 Dim adostream As New ADODB.Stream With adostream .Type = adTypeText .Mode = adModeReadWrite .Charset = "utf-8" .Open .Position = 0 .WriteText "木子屋-http://www.mzwu.com/"原创 2014-05-08 13:15:11 · 1959 阅读 · 0 评论