-
VisualFreeBasic控件_WebBrowser IE浏览器 传统的IE浏览器，虽然IE已经过时，但是好在操作系统提供，我们开发的软件可以不附带任何东西，显示传统的网页，还是非常不错的。 显示网页 设置网址 WebBrowser1.Navigate("http://www.yfvb.com") 本地网页 WebBrowser1.Navigate("file:///X:/index.html") 直接设置网页代码 WebBrowser1.Navigate "about:blank" ’先清空网页 AfxDoEvents ‘IE 是多线程，需要等待一个消息周期，让网页清空生效 Dim bb As String bb = "<html>" & vbCrLf & _ " <head>" & vbCrLf & _ " <title>网页标题 </title>" & vbCrLf & _ " <body>" & vbCrLf & _ " 网页显示内容" & vbCrLf & _ " </body>" & vbCrLf & _ "</html>" & vbCrLf & _ WebBrowser1.WriteHtml(bb) '显示此内容 获取网页文本框输入的内容 比方，网页中有一个文本框，用户输入了文字，那么我们如何获取输入的文字呢？ 网页中的代码 <html> <body> <input type="text" id="myInput"> </body> </html> 我们VFB里的获取代码 Print WebBrowser1.GetElementValueById("myInput") 让网页执行JS代码 可以让浏览器执行JS代码，实现软件和浏览器交互。 WebBrowser1.RunJs("这里是JS的代码") 响应浏览器操作 导航之前事件，可以先确定网址，然后由你决定是否开启这个网址 Sub Form1_WebBrowser1_BeforeNavigate2(ByRef pWebCtx As CWebCtx, ByRef pdisp As IDispatch, ByRef Url As Variant, ByRef Flags As Variant, ByRef TargetFrameName As Variant, ByRef PostData As Variant, ByRef Headers As Variant, ByRef pbCancel As Variant_BOOL) End Sub 弹出新网页时，可以由你决定是否弹出，或同个网页打开 Sub Form1_WebBrowser1_NewWindow3(ByRef pWebCtx As CWebCtx,ppDisp As IDispatch Ptr Ptr,ByRef pbCancel As Variant_BOOL,dwFlags As ULong,ByRef pwszUrlContext As WString,ByRef pwszUrl As WString) End Sub 比方，浏览器里有一个按钮，点击按钮，这里可以获取到按钮点击。网页中按钮代码为 <a href="按钮1" target="_blank">按钮文字</a> 事件中： Sub Form1_WebBrowser1_NewWindow3(ByRef pWebCtx As CWebCtx,ppDisp As IDispatch Ptr Ptr,ByRef pbCancel As Variant_BOOL,dwFlags As ULong,ByRef pwszUrlContext As WString,ByRef pwszUrl As WString) If pwszUrl = "按钮1" Then 这里执行点击按钮后要执行的代码 pbCancel = VARIANT_TRUE End If End Sub 浏览器的功能非常多，我只是稍微知道一点皮毛，里面的事件和属性非常多，需要更深入的，只能自己研究了。 其它常用属性 WebBrowser1.Refresh 刷新网页 WebBrowser1.GoBack 后退 WebBrowser1.GoForward 向前 -
-
-
VisualFreeBasic控件_DateTimePicker 日期时间选择器 用来选择日期和时间用 运行后，可以点击下拉按钮，显示月历来选择日期 自定义日期格式 可以自己定义格式来设置，格式如：yyyy-mm-dd hh:mm:ss 此字符串，参考 Format 语句帮助里的日期时间格式 符号 描述 d, dd 以1位/ 2位数字显示日期（1-31 / 01-31） ddd 显示日期为缩写（Sun-Sat） dddd 以全名显示日期（星期日 - 星期六） ddddd 显示序列号作为完整日期（包括日，月，年） m,mm 以1位/ 2位数字显示月份（1-12 / 01-12）。如果在h或h之后立即显示分钟而不是月份 M, MM 显示月份为一位/两位数字（1-12 / 01-12），即使紧随h或hh mmm 显示月份为缩写（Jan-Dec） mmm 显示月份为全名（1月至12月） y,yy 将年份显示为两位数字（00-99） yyyy 显示年份为四位数字（1900-2040） h,hh 将小时显示为一位/两位数字（0-23 / 00-23） m,mm 将分钟显示为一位/两位数字（0-59 / 00-59）。如果不是紧随h或hh，则显示月份而不是分钟 n,nn 将分钟显示为一位/两位数字（0-59 / 00-59），即使不是在h或hh后立即 s,ss 显示第二个为一位/两位数字（0-59 / 00-59） ttttt 将时间序列号显示为一个完整的时间，包括小时，分钟和秒 常用事件 修改了时间或日期 Sub Form1_DateTimePicker1_DTN_DateTimeChange(hWndForm As hWnd, hWndControl As hWnd,pChange As NMDATETIMECHANGE) End Sub 常用属性 DateTimePicker1.DateTime 返回日期时间 DateTimePicker1.DateTimeStr 返回日期时间的字符串 -
-
-
VisualFreeBasic控件_UpDown 上下按钮 由2个按钮组成的 上下按钮，在属性里，也可以设置成左右按钮。 可以设置最大值和最小值，用来调节某数值。 常用事件 点击按钮 Function Form1_UpDown1_UDN_DeltaPos(hWndForm As hWnd, hWndControl As hWnd,pNMUD As NMUPDOWN) As LResult Function = False '允许更改位置值。返回 TRUE 将不允许修改位置值 End Function 常用属性 UpDown1.MaxValue 最大值 UpDown1.MinValue 最小值 UpDown1. Value 当前值 伙伴控件 可以 和 Text文本控件组合成一个新控件，在此属性中输入控件名称 运行软件后，本控件会跑到Text文本控件旁边，点击上下按钮，可以自动改变Text文本中数值 -
VisualFreeBasic控件_RichEdit 富文本 Text 控件对应的是系统中的“记事本”软件，而RichEdit对应的是系统中“写字板”软件，功能是相当强大。 大家可以看一下系统中的软件，它能做到的，基本上这个控件都能办到 不过，这个是标记文本，而这个标记需要专门的学习，这些需要去查看微软文档。 我们也可以在“写字板”软件编辑好后，保存文件，然后用文本打开，复制代码 常用事件 文本被修改 Sub Form1_RichEdit1_EN_Update(hWndForm As hWnd, hWndControl As hWnd) End Sub 常用属性 RichEdit1.Text = "普通文本" RichEdit1.TextRtf = "Rtf格式的标记文本" -
-
