2011年11月11日
vb webbrowser 判断 网页是否载入完毕
摘要： 引用：http://zhidao.baidu.com/question/133403436.htmlWebBrowser1.Navigate "http://www.baidu.com"Do DoEvents If WebBrowser1.ReadyState = 4 Then MsgBox "载入完成": Exit Do Loop 阅读全文
posted @ 2011-11-11 15:33 镇水古月 阅读(546) 评论(0) 推荐(0)
vb 判断 控件是否存在
摘要： 引用:http://zhidao.baidu.com/question/95306345.htmlPrivate Sub Form_load() Dim i As Integer For i = 0 To Me.Controls.Count - 1 If Me.Controls.Item(i).Name = "Shape1" Then 'me 可以用你控件的窗体名称替换。 MsgBox "存在" Exit Sub End If Next If i > Me.Controls.Count - 1 Th... 阅读全文
posted @ 2011-11-11 14:38 镇水古月 阅读(1007) 评论(0) 推荐(0)
vb 类 动态 添加 控件
摘要： 引用：http://zhidao.baidu.com/question/66115499.htmlclsTask____________________________Private lbl As LabelPrivate frm As FormPublic Property Let Owner(ByVal vNewValue As Form)Set frm = vNewValueEnd PropertyPublic Sub AddPanel(ByVal strCaptiop As String)Set lbl = frm.Controls.Add("VB.Label", 阅读全文
posted @ 2011-11-11 13:50 镇水古月 阅读(366) 评论(0) 推荐(0)
vb 可变长 数组
摘要： 引用：http://www.cnblogs.com/liwenqiang/archive/2010/07/29/1787690.html关键点：Dim str() As string '定义redim str(n) '重设长度 or redim Preserve str(n) '重设长度，并保持原来记录不变详细阐述：ReDim 语句在过程级别中使用，用于为动态数组变量重新分配存储空间。语法ReDim [Preserve] varname(subscripts) [As type] [, varname(subscripts) [As type]] . . .Re... 阅读全文
posted @ 2011-11-11 09:55 镇水古月 阅读(1093) 评论(0) 推荐(0)
威客类收集
摘要： 威客管家：http://www.wkabc.com/ 阅读全文
posted @ 2011-11-11 09:51 镇水古月 阅读(93) 评论(0) 推荐(0)