 |
使回车具有Tab地功能 | 点击:0 | |
| 在VB 中，使用回车结束一个录入时，光标不能自动移到下个对象。解决方法是在该对象的 KeyPress 事件中增加以下的代码： If KeyAscii = 13 Then SendKeys {Tab} KeyAscii = 0 End If(2008-03-21) | |||
|
VB中Combo的自动查询方案 | 点击:0 | |
| Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const CB_FINDSTRING = H14C Private Sub Combo1_Change() Dim iStart As Integer Dim sString As String(2008-03-21) | |||
|
vb.net打开保存文件实例 | 点击:0 | |
| 呵呵，这样也可以实现国际化的，就是把英文对应的各种不同国家的语言整理成不同的文本文件，到时候就可以轻松实现国际化，我估计诸如struts之类的框架的实现原理也是这个。今天使用vb.net来实现打开保存文件的示例，让自己对这方面的知识熟悉一些。 Imports System.Win(2008-03-20) | |||
|
通过VB得到某页的HTML代码 | 点击:0 | |
| 加入WebBrowser、Timer、CommandButton控件各一个，然后使用以下代码： Private Sub Command1_Click() WebBrowser1.Navigate http://www.programlife.com/ Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Dim doc, objhtml As Object Dim i As Integer Dim(2008-03-18) | |||
|
在VB下通过xmlhttp实现远程文件下载 | 点击:0 | |
| 建立一个vb工程，Project1 添加引用：Microsoft scripting runtime,Microsoft Active Data Object,Microsoft MsXml Form1代码： Public a As MSXML2.XMLHTTP Private Sub Command1_Click() Dim d As Class1 Set a = New MSXML2.XMLHTTP a.open get, http://www.ljc.com(2008-03-18) | |||
|
在VB下编写超长时间计时器类对象 | 点击:0 | |
| VB系统中提供了固有计时器Timer控件，通过给计时器控件的Interval属性设置不同的数值，就可以控制计时器运行的时间间隔，但该属性是一个双字节的整型变量，最大值只能设置为65535，即只有65535毫秒,约一分钟多一点，在需要长时间计时时，该控件就无能为力了。本文给出(2008-03-18) | |||
|
使用VB6.0在Windows Vista下实现全磨砂玻璃窗口 | 点击:0 | |
| 使用过 Windows Vista 的用户都会对 Vista 窗口的磨砂玻璃效果印象深刻，而如果你在 Windows Vista 下使用过 Windows Media Player 11 更会发现微软把这种效果扩展至 WMP11 的底部区域，使得 WMP 的底部按钮区域成为一条玻璃带，如图： 事实上， Vista 窗口的磨砂玻璃(2008-03-09) | |||
|
vb中的For循环语句详解 | 点击:0 | |
| 格式： For循环变量=初值To终值[Step步长] 循环体 [ExitFor] Next循环变量 功能： 当循环变量的值在初值到终值范围内时，执行一次循环体中的语句块，并使初值增加一个步长。当循环变量的值不在初值到终值范围内时，就退出循环，执行Next后面的语句。For循环语句执行的流(2008-03-09) | |||
|
用VB模拟Vista系统的玻璃类窗口代码 | 点击:0 | |
| VB能做的事情蛮多的，这不，我给大家送来了Vista玻璃窗体^_^ 代码下载： http://www.3lsoft.com/lc/VistaForm.zip(2008-02-27) | |||
|
VB写WebBrowser捕捉信息之二 | 点击:0 | |
| 在上一部分中，我们讨论了让程序自动在网上浏览并将所需的数据准确、快速地存储下来的方法。现在，我们将迎接更大的挑战：将网页上以表格形式存在的二维数据提取出来，并存成可直接导入数据库的Microsoft Excel 逗号分隔值文件（即.csv文件）。 用手工在网页上直接提取(2008-02-27) | |||
|
VB6.0在Vista下实现全磨类砂玻璃窗口代码 | 点击:0 | |
| 使用过Windows Vista 的用户都会对Vista窗口的磨砂玻璃效果印象深刻，而如果你在Windows Vista 下使用过 Windows Media Player 11 更会发现微软把这种效果扩展至WMP11的底部区域，使得WMP的底部按钮区域成为一条玻璃带，如图: 事实上，Vista窗口的磨砂玻璃效果不仅限于(2008-02-27) | |||
|
vb.net连接access数据库代码 | 点击:0 | |
| Private Con As String = 连接字符串'连接字符串可以自动生成 Private connconnection As OleDb.OleDbConnection Private conncommand As OleDb.OleDbCommand Public Function DBopen() As Boolean Try Me.connconnection = New OleDb.OleDbConnection Me.connconnectio(2008-01-29) | |||
|
vb.net连接sql数据库代码 | 点击:0 | |
| Private Con As String = 连接字符串'连接字符串可以自动生成 ' Private Con As String = initial catalog=lxf; Data Source=192.168.0.33pubs;User 'ID=sa;Password=sa＇好用． 'initial catalog 是数据库 Private connection As New SqlClient.SqlConnection Private(2008-01-29) | |||
