��̰��̳ -Visual Basic

textbox�ؼ��д��λ��ʱ�Ž��һ��

guanchaogogo — 2012-5-20 15:58:00

��һ��С��򣬰ﺢ��Ӽ��ġ��text1��text2��text3��ġ�
��text3��һλ��ʱ��򽫻�ִ��һ��IF��䣬��ִ��msgbox��ҵ�msgbox��ʾ�Դ��ģ��޷��λ��Ӧ��С��⣬��λ��æ��

VB��ѧ��ϵͳ��ʾ424��?

cjyvb123 — 2012-5-18 10:14:00

Dim mnUserType As Integer

Private Sub cboUserType_Click()
mnUserType = cboUserType.ListIndex
End Sub
Private Sub cboUserType_Change()
mnUserType = cboUserType.ListIndex
End Sub

Private Sub cmdCancel_Click()
   If MsgBox("��ȷ��Ƿ��˳�ϵͳ?", vbYesNo) = vbYes Then End
End Sub

Private Sub cmdOK_Click()
  Dim user As String, pwd As String
    user = txtUser
    pwd = txtPwd
    Dim r As New ADODB.Recordset
    Set r = DataEnv.rssqlSeek    [color=000080]{��ʾ424��}[/color]    Dim strSQL As String
    Select Case mnUserType
        Case 0:
            strSQL = "select * from admin where name='" & user & "' and pwd='" & pwd & "'"
        Case 1:
            strSQL = "select * from student where name='" & user & "' and serial='" & pwd & "'"
    End Select

    On Error Resume Next
    If r.State = adStateOpen Then r.Close
    r.Open strSQL
    Static nTryCount As Integer
    If r.EOF Then
      MsgBox "�Բ��޴��û��벻��ȷ��룡��", vbCritical, "��"
      txtUser.SetFocus
      txtUser.SelStart = 0
      txtUser.SelLength = Len(txtUser)
      nTryCount = nTryCount + 1
      If nTryCount >= 3 Then
         MsgBox "��Ȩ��ϵͳ!�ټ��", vbCritical, "��Ȩ��"
         Unload Me
      End If
    Else
      Load MDIMain
      With MDIMain
        .mnUserType = mnUserType
        .msUserName = pwd
        .Show
      End With
      Unload Me
    End If

End Sub

Private Sub Form_Load()
cboUserType.ListIndex = 0
End Sub

  ��ʾ424��"0Set r = DataEnv.rssqlSeek"��ʲôԭ��أ�
  ��λ��ְ�æ��һ�¡�

mshflexgrid��ʾ��

newly88 — 2012-5-17 17:12:00

�ҵ�mshflexgrid1��ӵ��A��B��C
A��Ӧ��A1��A2��A3��B��Ӧ��B1��B2��C��Ӧ��C1��C2
A1��A2��A3��B1��B2��C1��C2��mshflexgrid2��ӣ�ͨ��A��mshflexgrid2��ʾA1��A2��A3��ⲿ��ѽ��mshflexgrid2�п�ʼĬ��ʾA1��A2��A3��B1��B2��C1��C2��벻��ʾ

VBҲ��ջ��ô��

wwc7654321 — 2012-5-17 9:56:00

��ѧphp��PHP��JAVA��ջ��Ҿ��VB��set fs=nothing
��ǲ��ջ��ƣ�
��ǣ��VB��Ǻܳ�ǰ��

VB��combo�ؼ��ѯaccess��ݿ⣿

lg25892008 — 2012-5-16 1:44:00

��combo�ؼ��
combo1��˵��,��,��壻
combo2��Ŀ��˵��,��ѧ,Ӣ�
�ֿ��access��ݿ��
��  �� ѧ Ӣ��
��  80    90    80
��  90    80    80
��  90    80    90
��һ��ı��ؼ�text1��һ��ؼ�command1��
Ҫ��combo��˵��ѡ�񣬵��ťcommand1ȷ��ı��ؼ�text1��Ӧ�ĳɼ��
�Ҹ�ѧVB��ֻ��adodc��datagrid�ؼ��ʾ��û�ҳ��Ľ��λ��ܹ��ߴͽ̣��ϸ��˵һ�¡��ڴ˶��л�⣡

VB��һ��ı��ʾ��

lenkene — 2012-5-14 17:14:00

��̬�Ķ��ʾ��Ҫ��ƺͳ��

��λ�ȡ��ѭ��

tony@vb — 2012-5-13 22:09:00

��˼��˷Ѹ�λ��Ϻһ��ʱ�䣬��⡣
��ǣ��Ǯ�ټ��Ĵ��룬��λ�ȡ��ܹ�ѭ��Ĵ��ء�

        Dim x%, y%, z%
        Label1.Text = "ĸ��       ��       С��       " & vbCrLf
        For x = 0 To 33
            For y = 0 To 50
                For z = 0 To 200
                    If x + y + z = 100 And 3 * x + 2 * y + 0.5 * z = 100 Then
                        Label1.Text &= x & Space(9) & y & Space(9) & z & vbCrLf
                    End If
                Next z
            Next y
        Next x

�� 鷳��һ��vb��~лл

fj900108 — 2012-5-10 14:48:00

Option Explicit
'Public k As Boolean
Public LoginSucceeded As Boolean
Private Const mcPassWord As String = "111"

Private Sub cmdCancel_Click()
    '��ȫ�ֱ��Ϊ false
    '��ʾʧ�ܵĵ�¼
    LoginSucceeded = False
    Unload Me
End
End Sub

Private Sub cmdOK_Click()
    '��ȷ��
    If txtPassword = mcPassWord Then
        '��ﴫ��
        '�ɹ�� calling ��
        '��ȫ�ֱ��ʱ��׵�
        LoginSucceeded = True
        Unload Me
        MDIMain.Show
    Else
        MsgBox "��Ч��룬��!", , "��¼"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub
Private Sub Form_Load()
'k = False
End Sub

Private Sub txtPassword_Click()
If txtPassword.Text = "��" Then
txtPassword.Text = ""
txtPassword.PasswordChar = "*"
End If
End Sub

Private Sub txtPassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdOK_Click
End If
End Sub

Option Explicit

Private Sub Command1_Click()
Dim rst As Recordset

    Set rst = New Recordset
    rst.ActiveConnection = pCN
    rst.Source = "select * from ϵͳ��"
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenStatic
    rst.LockType = adLockBatchOptimistic
    rst.Open
    If Option1.Value Then
        rst![��׺�] = Combo1.ItemData(Combo1.ListIndex)
    Else
        rst![��׺�] = 0

    End If
    rst.UpdateBatch
    Set rst = Nothing
    MsgBox "��óɹ��!", vbInformation
    Unload Me
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Form_Load()
frmSetup.Height = 0
    Call InitCmb
End Sub

''��ʼ��׺�
Private Sub InitCmb()
Dim i As Integer
Dim rst As Recordset
    Set rst = New Recordset

    rst.ActiveConnection = pCN
    rst.Source = "select * from �׺�"
    rst.LockType = adLockBatchOptimistic
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenStatic
    rst.Open

    Combo1.Clear
    For i = 1 To rst.RecordCount
        Combo1.AddItem rst![�׺��]
        Combo1.ItemData(Combo1.ListCount - 1) = rst![ID]
        rst.MoveNext
    Next i

    Me.Combo1.ListIndex = 0

    Set rst = Nothing

End Sub

Private Sub Option1_Click()
    Combo1.Enabled = True
End Sub

Private Sub Option2_Click()
    Combo1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If frmSetup.Height < 3555 Then
frmSetup.Height = frmSetup.Height + 100
End If
End Sub

��ְ�æ��һ�³�� һ��е��

fj900108 — 2012-5-10 14:46:00

Option Explicit
''
Private Sub InitSubjectSet()
Dim rst As Recordset
Dim i       As Integer
    Set rst = New Recordset
    rst.LockType = adLockBatchOptimistic
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenStatic
    rst.ActiveConnection = pCN
    rst.Source = "select * from �׺�"
    rst.Open
    Me.Combo1.Clear
    For i = 1 To rst.RecordCount
        Me.Combo1.AddItem rst![�׺��]
        Me.Combo1.ItemData(Me.Combo1.ListCount - 1) = rst![ID]
        rst.MoveNext
    Next i
    If Combo1.ListCount > 0 Then
        Combo1.ListIndex = 0
    End If
    Set rst = Nothing
End Sub

Private Sub Combo1_Click()
    Me.Adodc1.ConnectionString = pCN.ConnectionString
    Me.Adodc1.RecordSource = "select ID,��Ŀ��,��Ŀ��,��,��Ŀ��,��Ŀ��ֵ,��Ŀ��ע from V_�� where ��Ŀ�׺�=" & Combo1.ItemData(Combo1.ListIndex)
    Me.Adodc1.Refresh
    Set Me.MSHFlexGrid1.Recordset = Me.Adodc1.Recordset
    Me.MSHFlexGrid1.Refresh
End Sub

Private Sub Command1_Click()
Call frmSubjectEdit.EditSubject(, Me.Combo1.ItemData(Me.Combo1.ListIndex))
    Call InitSubject
End Sub

Private Sub Command2_Click()
    Call frmSubjectEdit.EditSubject(Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 0), Me.Combo1.ItemData(Me.Combo1.ListIndex))
    Call InitSubject
End Sub

Private Sub Command3_Click()
Dim rst As Recordset

    If Me.MSHFlexGrid1.Rows > 1 Then
        If MsgBox("��Ҫɾ��ѡ�е��Ŀ��?", vbQuestion + vbOKCancel) = vbOK Then
            If Me.MSHFlexGrid2.Rows > 1 Then
                MsgBox "��滹�б�ѡ��¼��ɾ��!", vbInformation
                GoTo Proc_Exit
            End If

            Set rst = New Recordset
            rst.Open "select * from �� where ��Ŀ��='" & Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 1) & "'", pCN, adOpenStatic, adLockBatchOptimistic
            If rst.RecordCount > 0 Then
                MsgBox "�Ѿ��п��ˣ��ɾ��!", vbInformation
                GoTo Proc_Exit
            End If

            Set rst = Nothing

            pCN.Execute "delete from �� where ��Ŀ��='" & Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 1) & "'"
            If Me.MSHFlexGrid1.Rows > 2 Then
                Me.MSHFlexGrid1.RemoveItem Me.MSHFlexGrid1.Row
            Else
                Me.MSHFlexGrid1.Rows = 1
            End If
            Call InitSubjectAnswer
        End If
    End If
Proc_Exit:

End Sub

Private Sub Command4_Click()
    Unload Me
End Sub

Private Sub Command5_Click()
    Call frmSubjectAnswerEdit.EditSubjectAnswer(Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 1), Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 2))
    Call InitSubjectAnswer
End Sub

Private Sub Command6_Click()
    If Me.MSHFlexGrid2.Rows > 1 Then
        Call frmSubjectAnswerEdit.EditSubjectAnswer(Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 1), Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 2), Me.MSHFlexGrid2.TextMatrix(Me.MSHFlexGrid2.Row, 0))
        Call InitSubjectAnswer
    End If
End Sub

Private Sub Command7_Click()
Dim rst As Recordset
    If Me.MSHFlexGrid2.Rows > 1 Then
        If MsgBox("��Ҫɾ��ѡ�еĴ��?", vbQuestion + vbOKCancel) = vbOK Then
            Set rst = New Recordset
            rst.Open "select * from �� where ��Ŀ��='" & Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 1) & "'", pCN, adOpenStatic, adLockBatchOptimistic
            If rst.RecordCount > 0 Then
                MsgBox "�Ѿ��п��ˣ��ɾ��!", vbInformation
                GoTo Proc_Exit
            End If

            pCN.Execute "delete from ��Ŀ��ϸ where ID=" & Me.MSHFlexGrid2.TextMatrix(Me.MSHFlexGrid2.Row, 0)
            If Me.MSHFlexGrid2.Rows = 2 Then
                Me.MSHFlexGrid2.Rows = 1
            Else
                Me.MSHFlexGrid2.RemoveItem Me.MSHFlexGrid2.Row
            End If

        End If
    End If
Proc_Exit:

End Sub

Private Sub Form_Load()
frmSubject.Height = 0
    Call InitSubjectSet
    Call InitSubject
End Sub

Private Sub InitSubject()
    Me.Adodc1.ConnectionString = pCN.ConnectionString
    Me.Adodc1.RecordSource = "select * from �� where ��Ŀ�׺�=" & Me.Combo1.ItemData(Me.Combo1.ListIndex)
    Me.Adodc1.Refresh
    Set Me.MSHFlexGrid1.Recordset = Me.Adodc1.Recordset
    If Me.MSHFlexGrid1.Rows > 1 Then
        Me.MSHFlexGrid1.Row = 1
    End If
    Call InitSubjectAnswer
End Sub

Private Sub InitSubjectAnswer()
    If Me.MSHFlexGrid1.Rows > 1 Then
        Me.Adodc2.ConnectionString = pCN.ConnectionString
        Me.Adodc2.RecordSource = "select * from ��Ŀ��ϸ where ��Ŀ��='" & Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 1) & "'"
        Me.Adodc2.Refresh
        Set Me.MSHFlexGrid2.Recordset = Me.Adodc2.Recordset
    Else
        Me.MSHFlexGrid2.Rows = 1
    End If
End Sub

Private Sub MSHFlexGrid1_Click()
    Call InitSubjectAnswer
End Sub

Private Sub MSHFlexGrid1_RowColChange()
    Call InitSubjectAnswer
End Sub

Private Sub Timer1_Timer()
If frmSubject.Height < 6840 Then
frmSubject.Height = frmSubject.Height + 100
End If
End Sub

Option Explicit
Private mblnEdit As Boolean
Private mlngID As Long

Public Sub EditSubjectAnswer(ByVal strSubjectID As String, ByVal strSubjectText As String, Optional ByVal lngID As Long = 0)
Dim rst As Recordset
    Text1 = strSubjectID
    Text2 = strSubjectText
    mlngID = lngID
    mblnEdit = (lngID <> 0)
    If mblnEdit Then
        Set rst = New Recordset
        rst.Open "select * from ��Ŀ��ϸ where ID=" & lngID, pCN, adOpenStatic, adLockBatchOptimistic
        Text3 = rst![��Ŀ��]
        Text4 = rst![��ѡ��]
        Text5 = rst![��Ŀ��ע] & ""
    End If
    Set rst = Nothing
    Me.Show 1
End Sub

Private Sub Command1_Click()
Dim rst As Recordset
On Error GoTo Proc_Exit
    If Len(Text3) = 0 Then
        MsgBox "��Ŀ��벻Ϊ��!", vbInformation
        GoTo Proc_Exit
    End If

    If Len(Text3) > 1 Then
        MsgBox "��Ŀ��Ϊһλ��ĸ!", vbInformation
        GoTo Proc_Exit
    End If

    If Not (Asc(Text3) >= 65 And Asc(Text3) <= 90) And Not (Asc(Text3) >= 97 And Asc(Text3) <= 122) Then
        MsgBox "��Ŀ��Ϊ��ĸ!", vbInformation
        GoTo Proc_Exit
    End If

    If Len(Text4) = 0 Then
        MsgBox "��ѡ�𰸲�Ϊ��!", vbInformation
        GoTo Proc_Exit
    End If

    Set rst = New Recordset
    If mblnEdit Then
        rst.Open "select * from ��Ŀ��ϸ where ID=" & mlngID, pCN, adOpenStatic, adLockBatchOptimistic
    Else
        rst.Open "select * from ��Ŀ��ϸ", pCN, adOpenStatic, adLockBatchOptimistic
        rst.AddNew
    End If

    rst![��Ŀ��] = Text1
    rst![��Ŀ��] = UCase(Text3)
    rst![��ѡ��] = Text4
    rst![��Ŀ��ע] = Text5
    rst.UpdateBatch
    mblnEdit = False
    Text3 = ""
    Text4 = ""
    Text5 = ""
    Text3.SetFocus
Proc_Exit:
    If Err.Number <> 0 Then
        MsgBox "��,��:" & Err.Number & " ��:" & Err.Description
    End If
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Option Explicit

Private mlngID As Long
Private mblnEdit As Boolean
Private mlngSubjectID As Long

Public Function EditSubject(Optional ByVal lngID As Long = 0, Optional lngSubjectSetID As Long)
Dim rst As Recordset
    mlngSubjectID = lngSubjectSetID
    mlngID = lngID
    mblnEdit = IIf(lngID > 0, True, False)
    If mblnEdit Then
        Set rst = New Recordset
        rst.Open "select * from �� where ID=" & lngID, pCN, adOpenStatic, adLockBatchOptimistic
        Text3 = rst![��Ŀ��]
        If rst![��Ŀ��] Then
            Option2.Value = True
        Else
            Option1.Value = True
        End If
        Text1 = rst![��Ŀ��]
        Text4 = rst![��Ŀ��ֵ]
        Text5 = rst![��Ŀ��]
        Text2 = rst![��Ŀ��ע] & ""
        Text3.BackColor = &H80000018
        Text3.Locked = True
    Else
        Text3.BackColor = vbWhite
        Text3.Locked = False
    End If
    Set rst = Nothing
    Me.Show 1
End Function

Private Sub Command1_Click()
Dim rst As Recordset
Dim strTemp As String
Dim i       As Integer
On Error GoTo Proc_Exit
    If Len(Text3) = 0 Then
        MsgBox "��Ŀ��Ų�Ϊ��!", vbInformation
        GoTo Proc_Exit
    End If

    If Len(Text1) = 0 Then
        MsgBox "��Ŀ��ݲ�Ϊ��!", vbInformation
        GoTo Proc_Exit
    End If

    If Len(Text5) = 0 Then
        MsgBox "��Ŀ�𰸲�Ϊ��!", vbInformation
        GoTo Proc_Exit
    End If

    For i = 1 To Len(Text5)
        strTemp = Mid(Text5, i, 1)
        If Not (Asc(strTemp) >= 65 And Asc(strTemp) <= 90) And Not (Asc(strTemp) >= 97 And Asc(strTemp) <= 122) Then
            MsgBox "��Ŀ�𰸱��Ϊ��ĸ!", vbInformation
            GoTo Proc_Exit
        End If
    Next i


    Set rst = New Recordset
    If mblnEdit Then
        rst.Open "select * from �� where ID=" & mlngID, pCN, adOpenStatic, adLockBatchOptimistic
    Else
        rst.Open "select * from ��", pCN, adOpenStatic, adLockBatchOptimistic
        rst.AddNew
    End If
    rst![��Ŀ��] = Text3
    If Option1.Value Then
        rst![��Ŀ��] = False
    Else
        rst![��Ŀ��] = True
    End If
    rst![��Ŀ��] = Text1
    rst![��Ŀ��ֵ] = Val(Text4)

    rst![��Ŀ��] = UCase(Text5)
    rst![��Ŀ��ע] = Text2
    rst![��Ŀ�׺�] = mlngSubjectID
    rst.UpdateBatch
    Text1 = ""
    Text2 = ""
    Text3 = ""
    Text4 = ""
    Text5 = ""
    mblnEdit = False
    Text3.BackColor = vbWhite
    Text3.Locked = False
Proc_Exit:
    Set rst = Nothing
    If Err.Number <> 0 Then
        If Err.Number = -2147467259 Then
            MsgBox "��Ŀ��Ų��ظ�!", vbInformation
        Else
            MsgBox "��,��:" & Err.Number & " ��:" & Err.Description, vbInformation
        End If
        Err.Clear
    End If
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

�� vb��ְ�æ��ͳ�� 2

lj900108 — 2012-5-10 13:46:00

Public i As Integer
Private Sub Form_Load()
frmSplash.Width = 35
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If frmSplash.Width < 5535 Then
frmSplash.Width = frmSplash.Width + 100
Else
Timer3.Enabled = True
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
If frmSplash.Width > 100 Then
frmSplash.Left = frmSplash.Left + 100
frmSplash.Width = frmSplash.Width - 100
Else
Unload Me
End If
End Sub

Private Sub Timer3_Timer()
Timer2.Enabled = True
Timer3.Enabled = False
End Sub

�� vb��ֽ��ͳ�� 1

lj900108 — 2012-5-10 13:45:00

Private Sub cmdCon_Click()

    If Me.txtName.Text = "" Then

        MsgBox "��ǳ�!", vbInformation, "��ʾ!"
        Exit Sub

    End If

    Me.wsClient.RemoteHost = Me.txtServer.Text   'ָ��򷵻�Զ�̷��ƻ��ַ
    Me.wsClient.RemotePort = Me.txtPort.Text 'ָ��򷵻�Ҫ��ӵ��Զ�̷��Ķ˿ں�

    Me.wsClient.Connect

    Me.cmdCon.Enabled = False
    Me.cmdSend.Enabled = True

End Sub

Private Sub cmdSend_Click()

    Me.wsClient.SendData Me.txtName.Text & " : " & Me.txtMsg.Text    '��͵�ǰ��ݿ�

End Sub

'��ݵ�ʱ��
Private Sub wsClient_DataArrival(ByVal bytesTotal As Long)

    Dim strMsg As String

    Me.wsClient.GetData strMsg  '��Զ�̼��ĵ�ǰ��ݿ�

    Me.lstShow.AddItem strMsg

End Sub

�� VB��ֽ��ͳ��

lj900108 — 2012-5-10 13:45:00

Option Explicit
''��ʾ��Ŀ֮��ľ��
Private Const mcsinSpace As Single = 200
Private mintCurrentSubject As Integer   ''��ǰ��
Private rstMain         As Recordset
Private rstDetail       As Recordset

Private isProgChangeValue   As Boolean

Private Sub chkAnswer_Click(Index As Integer)
Dim i As Integer
Dim strAnswer As String
Static isBusy As Boolean
Dim rst As Recordset
    If isProgChangeValue Then GoTo Proc_Exit
    If Not isBusy Then
        isBusy = True
        If Not rstMain![��Ŀ��] Then
            For i = 0 To chkAnswer.UBound
                If i <> Index Then
                    chkAnswer(i).Value = 0
                Else
                    chkAnswer(i).Value = 1
                    strAnswer = chkAnswer(i).Caption
                End If
            Next i
        Else
            For i = 0 To chkAnswer.UBound
                If chkAnswer(i).Value = 1 Then
                    strAnswer = strAnswer & chkAnswer(i).Caption
                End If
            Next i
        End If
        Set rst = New Recordset
        rst.ActiveConnection = pCN
        rst.Source = "select * from �� where ׼��֤��='" & pudtStudent.׼��֤�� & "' and ��Ŀ��='" & rstMain![��Ŀ��] & "'"
        rst.CursorLocation = adUseClient
        rst.CursorType = adOpenStatic
        rst.LockType = adLockBatchOptimistic
        rst.Open
        rst![��] = strAnswer
        rst.UpdateBatch
        Set rst = Nothing
        isBusy = False
    End If
Proc_Exit:


End Sub

''��һ��
Private Sub Command1_Click()
    If Not rstMain.EOF Then
        Command1.Enabled = True
        Command2.Enabled = True
        rstMain.MoveNext
        If rstMain.RecordCount = rstMain.Bookmark Then
            Command1.Enabled = False
            Command2.Enabled = True
        End If
    Else
        rstMain.MoveLast
    End If
    Call RefreshSubject
End Sub

Private Sub RefreshSubject()
Dim i As Integer
Dim rstAnswer As Recordset

    lblDescription.Caption = rstMain![��Ŀ��]
    Frame1.Caption = IIf(rstMain![��Ŀ��], "��ѡ��", "��ѡ��")
    Me.Caption = "׼��֤��: " & pudtStudent.׼��֤�� & " ��: " & pudtStudent.�� & "     ��ǰ �� " & rstMain.Bookmark & " ��"


    ''�õ��
    Call SetDetail

    ''��ж�ص�ǰ��صĶ��
    For i = 1 To lblAnswer.UBound
        Unload lblAnswer(i)
        Unload chkAnswer(i)
    Next i

    isProgChangeValue = True
    chkAnswer(0).Value = 0

    For i = 1 To rstDetail.RecordCount - 1

        Load chkAnswer(i)
        chkAnswer(i).Left = chkAnswer(0).Left

        Load lblAnswer(i)
        lblAnswer(i).Width = lblAnswer(0).Width
        lblAnswer(i).Height = lblAnswer(0).Height

        lblAnswer(i).Left = lblAnswer(0).Left
    Next i

    rstDetail.MoveFirst


    chkAnswer(0).Caption = rstDetail![��Ŀ��]

    'lblAnswer(i).Left = 10

    lblAnswer(0).Caption = rstDetail![��ѡ��]

    rstDetail.MoveNext
    For i = 1 To rstDetail.RecordCount - 1

        chkAnswer(i).Caption = rstDetail![��Ŀ��]
        chkAnswer(i).Top = lblAnswer(i - 1).Top + lblAnswer(i - 1).Height + mcsinSpace

        lblAnswer(i).Top = chkAnswer(i).Top
        lblAnswer(i).Caption = rstDetail![��ѡ��]

        lblAnswer(i).Visible = True
        chkAnswer(i).Visible = True
        rstDetail.MoveNext
    Next i

    ''��Ѿ��ˣ��ظ��Ĵ�

    Set rstAnswer = New Recordset
    rstAnswer.CursorLocation = adUseClient
    rstAnswer.LockType = adLockBatchOptimistic
    rstAnswer.CursorType = adOpenStatic
    rstAnswer.Source = "select * from �� where ׼��֤��='" & pudtStudent.׼��֤�� & "' and ��Ŀ��='" & rstMain![��Ŀ��] & "'"
    rstAnswer.ActiveConnection = pCN
    rstAnswer.Open

    If Len(rstAnswer![��] & "") > 0 Then
        For i = 0 To chkAnswer.UBound
            If InStr(1, UCase(rstAnswer![��]), UCase(chkAnswer(i).Caption)) > 0 Then
                chkAnswer(i).Value = 1
            End If
        Next i
    End If


    isProgChangeValue = False
End Sub

''��һ��
Private Sub Command2_Click()
    Command1.Enabled = True
    Command2.Enabled = True

    rstMain.MovePrevious
    If rstMain.Bookmark = 1 Then
        Command2.Enabled = False
        Command1.Enabled = True
    End If
    Call RefreshSubject
End Sub

''��
Private Sub Command3_Click()
Dim rst As Recordset
    If MsgBox("��󽫲��ڽ��п��,��Ҫ��?", vbQuestion + vbYesNo) = vbYes Then
        ''��н��
        Set rst = New Recordset
        rst.LockType = adLockBatchOptimistic
        rst.CursorLocation = adUseClient
        rst.CursorType = adOpenStatic
        Set rst.ActiveConnection = pCN
        rst.Source = "select * from �� where ׼��֤��='" & pudtStudent.׼��֤�� & "'"
        rst.Open
        rst![��״̬] = "�ѽ��"
        rst.UpdateBatch
        Unload Me
    End If
    End
End Sub

Private Sub Command4_Click()
  frmClient.Show 1
End Sub

Private Sub Form_Load()
frmAnswer.Height = 0
    Command2.Enabled = False

    Set rstMain = New Recordset

    rstMain.ActiveConnection = pCN
    rstMain.Source = "select * from �� where ��Ŀ�׺�=" & pintSetNumber
    rstMain.LockType = adLockBatchOptimistic

    rstMain.CursorLocation = adUseClient
    rstMain.CursorType = adOpenStatic
    rstMain.Open

    Call RefreshSubject

End Sub

''��ô��Ϣ
Private Sub SetDetail()
    Set rstDetail = Nothing
    Set rstDetail = New Recordset
    rstDetail.ActiveConnection = pCN
    rstDetail.Source = "select * from ��Ŀ��ϸ where ��Ŀ��='" & rstMain![��Ŀ��] & "'"

    rstDetail.LockType = adLockPessimistic
    rstDetail.CursorLocation = adUseClient
    rstDetail.CursorType = adOpenStatic
    rstDetail.Open
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set rstMain = Nothing
    Set rstDetail = Nothing
End Sub

Private Sub lblAnswer_Click(Index As Integer)
    Call chkAnswer_Click(Index)
End Sub

Private Sub Timer1_Timer()
If frmAnswer.Height < 6945 Then
frmAnswer.Height = frmAnswer.Height + 100
End If
End Sub

��ı��д

cavin88 — 2012-5-6 10:43:00

��֣��й��ı�̾��ֹ��һ��Ҫ��̸�λ��
��£�

��[color=FFFFFF]D�̸�Ŀ¼[/color]�´��һ�ı��ļ�text1��ʽ��:
[color=0000FF]AAAAA765
�й�sdh
��
��
��
ˢ��
.....[/color]
[color=00FF00]��[/color]

��ж�ȡ��ı��ݺ��д�뵽��ǰ��ж�ȡ��뵱ǰ��
�θ��ְ�æ��룬һ��ﵽѧϰ��Ŀ�ģ��һ��Ҳ�ﵽ��ʵ��Ŀ��

VB��ôʵ��2��˳��ĺϲ�

lenkene — 2012-4-29 14:16:00

��Ѹ��ϲ��

VB��ʵ��¹��𣿹��ո��Ȥ��

��ͱ�� — 2012-4-28 10:47:00

��Һã��һ��ұ��ߣ��Ҫ��ᾧ��һ��ר��ڼ�ⲿ�š�
��ڱ��ڴ�ѧ�ڼ��ѧ��VB��ڴ�ѯ��ܷ��VB��¹��ܣ�
1.��ͼƬ��룬��ͼƬ��
2.��ᾧ��ճ��
3.�õ��ᾧ��ͼƬ��
��Ϲ��ܷ�ʹ��VBʵ�֣�Ŀǰ��ѿ��̳̣��ͼƬ�Ϲ��򣬶��Ҽ��û��ͷ��Ҳû�н��ܡ��ΪͼƬ��ã��ʹ��Զ�ʶ��ܣ�ֻ��ֹ��գ��VB�̳�ֻ��ֱ�ߺ;��Σ��Ҫ��ǱպϵĶ��ζ��⹴�ա�
��ʵ��ǹ��̫�࣬��ר��һ��ר�õ��
��VB��ԣ��ô��Ӧ�ô�ʲôѧ�𣬿�ʲô��أ��ұ��רҵ��ڱ��ʱѧ��C��ԣ��ҵ��ʱѧ��VB��Ǻܻ��ģ�ϣ��Ϻ��ṩ��ʤ�м��

��ȸ�λ��񣡣��VB��ʱ��91��withδ��

lilongf — 2012-4-28 1:24:00

Private Sub cmdOK_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset

Dim MsgText As String
UserName = ""
If Trim(txtUserName.Text = "") Then
MsgBox "û��û��û��",vbOKOnly + vbExclamation, "��"
txtUserName.SetFocus
Else
txtSQL = "select*from user_Info where user_ID=" ' & txtUserName.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "û��û��û��¡", vbOKOnly + vbExclamation, "��"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
OK = True
mrc.Close
Me.Hide
UserName = Trim(txtUserName.Text)
Else
MsgBox "��벻��ȷ¡", vbOKOnly + vbExclamation, "��"
txtPassword.SetFocus
txtPassword.Text = ""
End If
End If
End If
miCount = miCount + 1

End Sub
��ָ��If.mrc.EOF=True ��λ��֪��ô�ģ�ʮ�ָ�л��ԵĻ��QQ��

��ڸ��

sarter — 2012-4-27 14:07:00

��ļ�form1.frm��Ƶ�һ��ļ�from2.frm,Ȼ��ٴ򿪣��޸�from2.frm��
��仰��˼�ǽ�ԭ��form1.frm��Ƶ��ļ��У�Ȼ��޸�form1.frm��Ϊfrom2.frm��򿪽��ʾ��ش��Ǿ仰��ʲô��Ϊʲô�� ˴��󣬹��ҲҪ��Ƶ�ͬһ��ļ��в��𣿴��ֹ��ҲҪ��

��VB RS485ͨѶ��

us365 — 2012-4-26 16:50:00

��ڱ�һ��485ͨѶ��򣬴��£�
Private Sub Command4_Click()
Dim bytearray(0 To 7) As Byte
    MSComm1.InBufferCount = 0
    MSComm1.OutBufferCount = 0
    MSComm1.RThreshold = 2
    bytearray(0) = &H5
    bytearray(1) = &H1
    bytearray(2) = &H4
    bytearray(3) = &H0
    MSComm1.Output = bytearray
    End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
    MSComm1.Settings = "9600,N,8,2"
    MSComm1.InBufferSize = 1024
    MSComm1.OutBufferSize = 1024
End Sub

Private Sub MSComm1_OnComm()
Dim dataread() As Byte
    Dim tempdata As Variant
    Dim str As String
    If MSComm1.CommEvent = comEvReceive Then
    tempdata = MSComm1.Input
    ReDim dataread(UBound(tempdata)) As Byte
    For i = 0 To UBound(tempdata)
    dataread(i) = tempdata(i)
    Text2 = Text2 & " " & Hex(dataread(i))
Next i
End If
    End Sub

��ȡ��ȫ��"FF FF FF FF"��ô��£� ��һ��Ĵ��룬�õ��ȴ��ȷ�ġ��ְ�æ��

��vb��д��ƶ��

lin24521 — 2012-4-22 16:28:00

��λ�һ��Σ��ƴ�С��ҿ��ƶ��Σ�� 룬��λ��ְ��æ�ɣ��

��Ⱑ��

ʧ��è — 2012-4-21 9:44:00

Private Sub Conn_Click() '��Ӱ�ť
If wsk.state <> 7Then
wsk.Close
wsk.RemoteHost = ip.Text
wsk.RemotePort = port.Text
wsk.Connect
End If
End Sub

��γ��С�If wsk.state <> 7��ɶ��˼��

��VB��ְ�� ҿ��ɶ��˼

ʧ��è — 2012-4-20 21:49:00

��Ұ��æ

��ɺ�ƻ� — 2012-4-18 17:49:00

�ҸսӴ�VB��ñ�һ��Ǽ��㷴��Ǻ��ģ��ĳ��Լ��Ĺ��У�tan��ķ��Ǻ��ǳ��"e��Ұ��ҿ��ĳ��ˣ��˵��Ҹ��ȷ�ģ�лл��ˣ��ã�
Text1 = a
Text2 = b
Text3 = c
Text4 = d
Text5 = e
e = 1 / (Tan((a - c / b - d)))

˭��ṩһ��ȷ��е�.dat�ļ��

��è — 2012-4-12 16:10:00

��һ��ͳ��ַ��ĳ��ҵ�˵��Ĵ��ȷ�ġ��ڵ��Թ��з��֣�Ҫ��˳��б��ȵ��һ��.dat�ļ��У��ļ��ð��ַ�----------��ǣ��ǲ�֪��ļ��ľ��ݣ��֪��½��֪��ôȥ��ݣ��Ҳ��֪��ַ�֮��ķָ��Ӧ��ġ��˺ܾ��޷�ͨ��
��ʣ�˭��ṩһ��ȷ��е�.dat�ļ��ң�лл��

Private Sub COMSTART_Click()
   Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer
   myfile1 = App.Path & "\" & "prog8a.dat"
   myfile2 = App.Path & "\" & "prog8b.dat"
   Open App.Path & "\" & "prog8a.dat" For Input As #1
   Open myfile2 For Output As #2
   While Not EOF(1)
      Input #1, Ch$
      If Asc(Ch$) >= 48 And Asc(Ch$) <= 57 Then
         Number = Number + 1
      ElseIf Asc(Ch$) >= 65 And Asc(Ch$) <= 90 Then
         Cp = Cp + 1
      ElseIf Asc(Ch$) >= 97 And Asc(Ch$) <= 122 Then
         Lp = Lp + 1
      Else
         Others = Others + 1
      End If
   Wend
   Print #2, Number, Cp, Lp, Others
   Close
   COMSTART.Caption = "��"
   COMSTART.Enabled = False
End Sub
[em8]

[��]�滻exe��bin�ļ��е�ָ��ַ�

CityShark — 2012-4-11 17:54:00

�� bin �ļ��е�ĳЩ�ַ��滻��ٻ� bin �ļ��֣��֪��

datagridview1.Controls.Add(datagridview2) ��

lye85 — 2012-4-10 18:22:00

datagridview1.Controls.Add(datagridview2)
datagridview2.focus

�� datagridview2.focus = true, keypress ��ͣ�� datagridview1.keypress , �� datagridview1.keypress ��?

[��]��ʹͼƬ�Ͷ��ĵ�ͬʱ�Ŵ��С��

emmy1416 — 2012-4-10 14:02:00

��picturebox��һ��ͼƬչʾ��ڣ�ͼƬ��ԷŴ��С��ƶ��û��⣬��Ҫ��ͼƬ��һ��㣬��Ƕ�ȡ��±��е��ֵ��ƶ��ʱ�򣬵��Ǻ�ͼƬһ��ƶ��ģ��ͼƬ�Ŵ��С��ʱ�򣬵�Ͳ��ˣ��ʸ�λ��֣��α��ʹͼƬ�Ŵ��ʱ��Ҳ��ŷŴ󣬾ͺ��̶��ͼƬ��ġ�лл�ˣ�

��EXecl��ݵ�msflexgrid��ʾ

zengziji — 2012-4-5 21:49:00

Private Sub Command1_Click()
Dim xlsconn As New ADODB.Connection
Dim xlscmd As New ADODB.Command
Dim rs As New ADODB.Recordset
xlsconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\TEST\test.xls;Extended Properties=excel 8.0;Persist Security Info=False"
xlsconn.Open
'��ʾ��WITHδ��ã�RS�Ľ��Ϊnoting,
Set rs = xlsconn.Execute("select * from [sheet1$]")
Set MSFlexGrid1.DataSource = rs
rs.Close
MSFlexGrid1.Refresh

End Sub

С��ѧ��֪��ô��£��Ǹ��ָ��ĵط��Ҹ��лл��

[ԭ��]��æ��һֻ��

hejing263 — 2012-4-4 11:03:00

Ҫ��У�
ʹ��VC++��ODBC��ADO��Dreamweaver�ȼ��SQL Server��ӣ��ɼ�ϵͳ��һ��ɾ��ĺͲ�ѯ�Ȳ��ʹ��VB��ACCESS��SQL Server��м�ϵͳ��ƺͿ��

vb��fortran֮��ĵ�� ܽ��Ľ�``

tangliangliang — 2012-4-3 16:46:00

�򵥵�дһ�� û��⣬��ǵ��
fortran��£�
subroutine PROMAIN(xdjx,oilnd0,D,DL,sp,PXL,X,Y,WP,Pmax,hmin,PWJ,w,p��
p��ӳ��ѱ��ֵ
vb��䣺
Declare Sub PROMAIN Lib "E:\study\PRO200\Debug\Debug\Debug.dll" (xdjx As Single, oilnd0 As Single, D As Single, DL As Single, sp As Single, PXL As Single, X As Single, Y As Single, WP As Single, hmin As Single, Pmax As Single, PWJ As Single, w As Single, P As Single)
vb ��䣺
Call PROMAIN(xdjx, oilnd0, D, DL, sp, PXL, X, Y, WP, Pmax, hmin, PWJ, w, P)

��vb��ʾ�� ByRef��Ͳ��
��עP��ͺã�û��p�� ָ��
��ߵȴ��

[��]��ֶ��.........

a395977648 — 2012-3-31 10:20:00

��VB6��æ��ͼ�Ĵ��л��(��ֳɵĸ��Ҳ��).......

��ͼƬ:

��̰�������̳ -Visual Basic

textbox�ؼ������д��λ����ʱ�Ž�����һ�����

VB��ѧ������ϵͳ����ʾ424����?

mshflexgrid��ʾ������

VBҲ���������ջ���ô��

VB�������combo�ؼ���ѯaccess���ݿ⣿

VB������һ���������ı�����ʾ��

������������λ�ȡ����ѭ������

���� �鷳����һ��������vb����~лл

����ְ�æ����һ�³��� ����һ����������е�����

���� ��vb���ְ�æ���ͳ��� 2

���� ����vb���ֽ��ͳ��� 1

���� ��VB���ֽ��ͳ���

�����������ı���д

VB��ôʵ��2��˳����ĺϲ�

VB��ʵ�����¹����𣿹��ո���Ȥ������������

������ȸ�λ���񣡣�����VB���ʱ����91������������withδ����

���ڸ���

������VB RS485ͨѶ����

��vb��д�������ƶ�����

����������Ⱑ������

����VB���ְ����� ���ҿ���������ɶ��˼