博文

[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
'********************************************************......

阅读全文(3633) | 评论:0

[VB]北大青鸟的VB高级编程的机式考试题(2006-05-31 16:27:00)

摘要:由于卷子被收上去了,所以我只能说出个大概的题目,需要对类和集合有初步的认识才能完成。 时限: 2个小时 题目: 按照下面的图子创建窗体
要求: 1:母亲姓名,婴儿性别和护理人员代码必填                                                                              2:婴儿体重为数字。               3:护理人员代码从0100到0112, 医务人员代码从0300到0320              4:必须创建一个类clsBaby用来保存初生婴儿的资料。              5:必须用集合Babys来保存你所填写的婴儿的资料              6:当按打印按钮时,则在另一个窗口显示婴儿信息,如无则提示没......

阅读全文(3413) | 评论:0

[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......

阅读全文(6773) | 评论:3

[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......

阅读全文(5502) | 评论:1

[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......

阅读全文(7854) | 评论:6

[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......

阅读全文(10215) | 评论:4

[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 = "......

阅读全文(4834) | 评论:0