博文
[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'****************************************************************************
' 设置邮政编号Public Property Let Co......
[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 ServerTCP_ConnectionRequest(ByVal requestID As Long) &nbs......
[VB]在VB中调用保存在SQL的图片(2006-05-18 17:22:00)
摘要：
如有错误或你有更好的方法，请说出，大家一起讨论，呵呵。。。。
首先创建保存图片的SQL数据库，如下：
表明为image. 注意descrition的长度最好定义长一点，因为他是保存路径，不过这个字段也可以删掉不要（不会影响效果），不过要改下程序。呵呵。
代码： 连接数据库的代码偶就不写了。呵呵。 代码中有注释
初始界面如下：
Private Sub cboId_Click() ' 点击下拉框选择时从数据库提取图片 Call getImageEnd 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 = LoadPicture(txtPath.Text) ' 按路径加载图片 &nb......
[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.ListIndex = 1 End If ......
[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 i = (i......
[VB]在VB中动态添加控件的2种方法(2006-05-08 00:18:00)
摘要：第一种方法： 通过控件数组来实现
可以使用控件数组,增加一个TreeView控件,把Index设置为0，然后使用下面的程序动态增加控件注意的是 cnt 不能为 0Load TreeView1(cnt)With TreeView1(cnt) .left = i*300 .top = 0 .visible= trueEnd Withcnt = cnt + 1以下为动态删除cnt=cnt-1Unload 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", picture1with form1!cmdok.visible = true.width = 500.caption = "确认(&y)"end withend sub
重点：当您添加一个未引用的需要许可证的控件到一个现存的（已部署好的）应用程序时，在使用 add 方法之前您必须也添加这个控件的许可证关键字。在运行时添加未引用的控件 您也可以......