博文
[VB]我的VB内测机试解题思路(2006-05-31 16:41:00)
摘要：代码如下:
显示类clsBaby的代码:
Option Explicit
Private strAddress As String ' 地址属性
Private strCode As String ' 邮政编号属性
Private strMotherName As String ' 母亲姓名属性
Private strFatherName As String ' 父亲姓名属性
Private strBabySex As String ' Baby性别属性
Private lngBabyKilo As Long ' Baby体重属性
Private strTaker As String ' 护理人代码属性
Private strDoctors As String ' 医务人代码属性
' 设置地址
Public Property Let Address(ByVal newValue As String)
strAddress = newValue
End Property
' 获得地址
Public Property Get Address() As String
Address = strAddress
End Property
'********************************************************......
[VB]北大青鸟的VB高级编程的机式考试题(2006-05-31 16:27:00)
摘要：由于卷子被收上去了，所以我只能说出个大概的题目，需要对类和集合有初步的认识才能完成。
时限: 2个小时
题目： 按照下面的图子创建窗体
要求： 1：母亲姓名，婴儿性别和护理人员代码必填
2：婴儿体重为数字。
3：护理人员代码从0100到0112, 医务人员代码从0300到0320
4：必须创建一个类clsBaby用来保存初生婴儿的资料。
5：必须用集合Babys来保存你所填写的婴儿的资料
6：当按打印按钮时，则在另一个窗口显示婴儿信息，如无则提示没......
[VB]用VB的Winsock简单模拟QQ消息发送(2006-05-21 14:42:00)
摘要： 模拟QQ消息发送需要建立2个工程，一个作为服务器端，一个作为客户端，偶通过用客户端向服务器端发送消息，并在服务器端显示发送的消息来介绍winsock。 大家可以在此基础上用VB作个局域网的聊天室。
偶也是刚学winsock,有什么错误或更好的方法请大家多多指教。。呵呵。
首先新建一个工程，作为服务器，在部件里找到Micrsoft Winsock Control 6.0(sp6)并选中，窗口如下：
其中： 为Winsock控件
服务器的代码如下（有注释）：注意Winsock控件的名称为“ServerTCP”
Private Sub cmdExit_Click()
ServerTCP.Close
Unload Me
End Sub
Private Sub Form_Load()
Me.Left = 100
Me.Top = 100
ServerTCP.LocalPort = 1001 ' 设置本地端口，可以随便设置
ServerTCP.Listen ' 桢听状态，简单的说就是将服务器打开
End Sub
Private Sub Server......
[VB]在VB中调用保存在SQL的图片(2006-05-18 17:22:00)
摘要：
如有错误或你有更好的方法，请说出，大家一起讨论，呵呵。。。。
首先创建保存图片的SQL数据库，如下：
表明为image. 注意descrition的长度最好定义长一点，因为他是保存路径，不过这个字段也可以删掉不要（不会影响效果），不过要改下程序。呵呵。
代码： 连接数据库的代码偶就不写了。呵呵。 代码中有注释
初始界面如下：
Private Sub cboId_Click() ' 点击下拉框选择时从数据库提取图片
Call getImage
End Sub
Private Sub cmdChoose_Click()
dlgMain.Filter = "JPEG(*.jpg)|*.jpg|位图(*.bmp)|*.bmp|GIT(*.gif)|*.gif|所有文件|*.*" ' 设定打开文件类型
dlgMain.FilterIndex = 4
dlgMain.ShowOpen
txtPath.Text = dlgMain.FileName ' 获得路径
If txtPath.Text = Empty Then
MsgBox "请选择路径"
cmdSave.Value = False
Exit Sub
Else
imgShow.Picture = LoadPictur......
[VB]在VB中调用SQL存储过程(2006-05-18 14:47:00)
摘要：
通过一个程序来讲解在VB中怎么调用存储过程：
这是初始化界面：
程序代码： 代码中加了注释
数据库连接的代码就自己写吧。呵呵。
Private Sub Command1_Click() ' 一般调用存储过程
Set g_Cmd = New Command
g_Cmd.ActiveConnection = g_Con ' 连接到数据库
g_Cmd.CommandType = adCmdStoredProc ' 表示cmd的类型为存储过程
g_Cmd.CommandText = "Test_1" ' 表示调用哪个存储过程
Set g_Rs = g_Cmd.Execute ' 执行存储过程
If Trim(g_Rs.Fields("sex").Value) = "男" Then
Combo1.ListIndex = 0
Else
Combo1.Lis......
[VB]将VB表格中的数据导出到Excel(2006-05-14 17:30:00)
摘要：步骤介绍：
首先在VB建一个MSFlexGrid表格，再连接到数据库，将数据库的表的资料显示到表格中，最后调用ExportExcel1（）函数将表格中数据导出到Excel.
第一步：在VB建一个MSFlexGrid表格，再连接到数据库，将数据库的表的资料显示到表格中，这个代码我就不写了。 大家应该都知道写把。
第二步：将以下函数代码放到模块里，只需改3处代码，则可实现导出功能，其他地方不用改。
/* IntToChr（这个函数不要做任何修改）
说明：将网格的列数转换成Excel中的字符形表示方式
*/
Public Function IntToChr(iRow1 As Integer, iCol1 As Integer, iRow2 As Integer, iCol2 As Integer) As String
Dim i As Integer, j As Integer, tmpi As Integer
Dim Tmpstr(1 To 2) As String
If iCol1 < 1 Or iCol1 > 256 Or iCol2 < 1 Or iCol2 > 256 Then
IntToChr = ""
Exit Function
End If
j = iCol1 Mod 26
If j = 0 Then
i = (iCol1 \ 26) - 1
j = 26
Else<......
[VB]在VB中动态添加控件的2种方法(2006-05-08 00:18:00)
摘要：第一种方法： 通过控件数组来实现
可以使用控件数组,增加一个TreeView控件,把Index设置为0，然后使用下面的程序动态增加控件
注意的是 cnt 不能为 0
Load TreeView1(cnt)
With TreeView1(cnt)
.left = i*300
.top = 0
.visible= true
End With
cnt = cnt + 1
以下为动态删除
cnt=cnt-1
Unload TreeView(cnt)
注意的是 cnt不能为0
第二种方法，不用控件数组来实现
object.add (progid, name, container)
参数说明：
object:必需。一个对象表达式，其值是“应用于”列表中的一个对象。
progid:必需。一个标识控件的字符串。大多数控件的 progid 都可通过查看对象浏览器来决定。控件的 progid 是由控件的库和类组成的。例如，commandbutton 控件的 progid 是 vb.commandbutton。在progid 与对象浏览器中所显示的不一样的情况下，visual basic 将显示一个包括正确 progid 的错误信息。
name:必要。一个字符串，用来标识集合的成员。
container:可选。一个对象引用，它指定控件的容器。如果没有指定或为null，缺省值为 controls 集合所属的容器。通过指定该参数，可以把一个控件放置在任何现存的容器控件（如 frame 控件）中。用户控件或 activex 文档也可以作为一个容器。
举例：(在picture1上面添加一个commandbutton)
private sub form_load()
form1.controls.add "vb.commandbutton", "cmdok", picture1
with form1!cmdok
.visible = true
.width = 500
.caption = "......