共 84 篇文章 |
|
通用截取函数Function strCut(strContent, StrStart, StrEnd) As String ''通用截取函数 Dim strHtml, S1, S2 As String strHtml = strContent On Error Resume Next S1 = InStr(strHtml, StrStart) + Len(StrStart) S2 = InStr(S1, strHtml, StrEnd) strCut = Mid(strHtml, S1, S2 - S1) End Function. 阅252 转10 评0 公众公开 11-05-21 18:53 |
确定一个像素的 R,G,B 各个分量确定一个像素的 R,G,B 各个分量 有网友问及如何确定一个像素的 R,G,B 各个分量,咋一看,似乎有点难,由于 VB 只提供 RGB 函数将 RGB 各分量转换为 RGB颜色值,而 Point 方法倒可以得到 RGB 颜色的长整型的值,但没有将长整型的值转换为 RGB分量的函数。结果前2位为 B 的值,中间2位为 G的值,后面两位为 R 的值... 阅819 转2 评0 公众公开 11-04-20 19:38 |
阅496 转12 评0 公众公开 11-04-05 23:20 |
阅645 转11 评0 公众公开 11-04-05 13:27 |
Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private WithEvents oTimer As TimerPrivate frmTmp As Form1Private lTotalLoop As LongPrivate bDoStop As BooleanPrivate lInterval As Long.Private Sub Command1_Click() Set oTest1 = New TestEXE.clsTest oTest1.lMillisecs = ... 阅4568 转115 评0 公众公开 11-02-26 22:29 |
然后它前进到下面的第一个Case子句,如果这个表达式的值和测试表达式的值匹配的话,VB就会执行语句直到遇到另外一个Case子句并且跳到End Select语句。注意,Case Else子句是可选的,如果你的程序里面没有使用Case Else并且没有一个Case子句的表达式和测试表达式相匹配,VB就会跳到End Select后面的语句,并且继续执行你的程序。因为unitsSold=9... 阅1158 转10 评0 公众公开 11-02-25 18:25 |
VB读写文件要用到以下语句: 1、Open语句打开文件。2、读文件使用Line Input、Input #,(以上为文本方式)和Get(以上为二进制方式)。Dim MyBool, MyDate, MyNull, MyError MyBool = False : MyDate = #February 12, 1969# : MyNull = Null MyError = CVErr(32767) '' True、False、Null 及 Error 会根据系统的地区设置自动转换格式... 阅949 转9 评0 公众公开 11-02-23 00:31 |
VB中Mid Right Left三个函数区别。把mid,right,left三个函数再重新整理一下.-----------------------------right 和left函数正确的使用方法是:在VB2005中,取字符串值的方法设a="Visual Basic" b=a.Substring(M, N)从M位开始往后取N位,但是M从第0位开始算举例:b=a.Substring(1, 2)含义:把字符串... 阅6950 转15 评0 公众公开 11-02-17 15:24 |
阅86 转自nxhujiee 公众公开 11-02-12 11:34 |
阅463 转2 评0 公众公开 11-02-12 11:30 |