vb6.0 制作一个简单小程序

按功能键盘上的F5 运行就可以！ 如果有错误，VB会出现新窗口，用汉字写出如何错误。在新窗口内点击调试，在代码窗口中出错的代码为**背景。 最后保存程序，单击“文件”菜单——选择“保存工程”。需要保存两个窗体，首先是frm的应用程序窗体，然后是vbp的工程文件。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBaseLoad

Dim oleDbConnection1 As OleDbOleDbConnection

Dim oledbDataAdapter As OleDbOleDbDataAdapter

Dim oledbData As DataSet = New DataSet

Dim strConnect As String = "Provider= OraOLEDBOracle;Data Source=888;User ID=888;Password=888;"

oleDbConnection1 = New SystemDataOleDbOleDbConnection(strConnect)

Dim strSql As String

strSql = "select " & " from xx"

Dim oledbCommand As OleDbOleDbCommand

oledbCommandCommandText = strSql

oledbCommandCommandType = CommandTypeText

oledbCommandConnection = oleDbConnection1

oledbDataAdapterSelectCommand = oledbCommand

oleDbConnection1Open()

oledbDataAdapterFill(oledbData, "gy_bingrenxx")

oleDbConnection1Close()

'在窗体上添加一个DataGridView控件,在这个位置加一句代码

DataGridView1DataSource = oledbDataAdapterTables("gy_bingrenxx")

End Sub

Private Sub Command1_Click()

Dim xlApp As ExcelApplication

Dim xlBook As ExcelWorkbook

Dim xlSheet As ExcelWorksheet

Text1 = "很高兴见到你"

Set xlApp = CreateObject("ExcelApplication") '创建EXCEL对象

Set xlBook = xlAppWorkbooksOpen("d:\汇总\总公司xls") '打开已经存在的EXCEL工件簿文件

xlAppVisible = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBookWorksheets("sheet1") '设置活动工作表

xlSheetRange("B4") = Text1 '给单元格（B4）赋值

xlBookClose (True) '关闭工作簿

xlAppQuit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

End Sub

楼上的代码应该改成这样更人性化：

a=InputBox("请输入加数1","0")

b=InputBox("请输入加数2","0")

Text1Text=val(a)+val(b)

哈哈

command1 的click事件中进行判断

if text1text="111" and text2text="222" then

form2show

else

msgbox "错误"

end if

桌面涂鸦VB程序代码

Option Explicit

Public Type POINTAPI

x As Long

y As Long

End Type

Public nXn As Long

Public gfqw As Long

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public sbsb As POINTAPI

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lparam As Any) As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)

Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Public Type MOUSEMSGS

x As Long 'x座标

y As Long 'y座标

a As Long

b As Long

time As Long 'Window运行时间

End Type

Public Const WH_MOUSE_LL = 14

Public Const MB_OK = &H0&

Public Const MB_ICONASTERISK = &H40&

Public Type MSLLHOOKSTRUCT

pt As POINTAPI

mouseData As Long

Flags As Long

time As Long

dwExtraInfo As Long

End Type

Public hHook As Long

'-----------------------------------------

'消息

Public Const HC_ACTION = 0

Public Const HC_SYSMODALOFF = 5

Public Const HC_SYSMODALON = 4

'鼠标消息

Public Const WM_MOUSEMOVE = &H200

Public Const WM_LBUTTONDOWN = &H201

Public Const WM_LBUTTONUP = &H202

Public Const WM_LBUTTONDBLCLK = &H203

Public Const WM_RBUTTONDOWN = &H204

Public Const WM_RBUTTONUP = &H205

Public Const WM_RBUTTONDBLCLK = &H206

Public Const WM_MBUTTONDOWN = &H207

Public Const WM_MBUTTONUP = &H208

Public Const WM_MBUTTONDBLCLK = &H209

Public Const WM_MOUSEACTIVATE = &H21

Public Const WM_MOUSEFIRST = &H200

Public Const WM_MOUSELAST = &H209

Public Const WM_MOUSEWHEEL = &H20A

Public Declare Function GetActiveWindow Lib "user32" () As Long

Public MouseMsg As MOUSEMSGS '鼠标消息结构体

Public lHook As Long '勾子句柄

Public sbss As POINTAPI

'鼠标钩子函数

Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lparam As Long) As Long

Dim typMHS As MSLLHOOKSTRUCT, pt As POINTAPI

If wParam = WM_MOUSEMOVE Then

Call CopyMemory(typMHS, ByVal lparam, LenB(typMHS))

pt = typMHSpt

DebugPrint "mouse Cursor at " + CStr(ptx) + "," + CStr(pty)

GetCursorPos sbsb

End If

If wParam = WM_LBUTTONDOWN Then

Form1Timer2Enabled = True

nXn = 2

GetCursorPos sbss

End If

If wParam = WM_RBUTTONDOWN Then

End If

If wParam = WM_LBUTTONUP Then '按下中间记下这个值，然后调用一个过程，我的鼠标没有中键，自己测试一下

Form1Timer2Enabled = False

HookProc = CallNextHookEx(hHook, nCode, wParam, lparam)

End If

End Function

'卸载勾子

Public Sub StopHook()

If lHook <> 0 Then lHook = UnhookWindowsHookEx(lHook)

End Sub

'===================== 模块结束 ========================

Public Sub FreeHook()

If hHook <> 0 Then

Call UnhookWindowsHookEx(hHook)

hHook = 0

End If

End Sub

Public Sub EnableHook()

If hHook = 0 Then

hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf HookProc, ApphInstance, 0)

End If

End Sub

楼主您好！

代码如下：

Option Explicit

Private Sub Command1_Click()

    Dim n(7) As Double

    Dim k(3) As Double

    k(3) = 1

    Dim j As Integer

    For j = 1 To 7

        n(j) = Val(Controls("Text" & CStr(j))Text)

    Next j

    For j = 1 To 7

        k(1) = k(1) + n(j)

        k(2) = k(2) - n(j)

        k(3) = k(3)  n(j)

    Next j

    MeText8Text = "7个数的和为：" & k(1) & vbCrLf & _

                    "7个数的差为：" & k(2) & vbCrLf & _

                    "7个数的乘积为：" & k(3)

End Sub

Private Sub Command2_Click()

    Dim i As Integer

    For i = 1 To 8

        Controls("Text" & CStr(i))Text = ""

    Next i

End Sub

Private Sub Form_Load()

    Dim i As Integer

    For i = 1 To 8

        Controls("Text" & CStr(i))Text = ""

    Next i

End Sub

以上就是关于vb6.0 制作一个简单小程序全部的内容，包括:vb6.0 制作一个简单小程序、VB.net做一个小程序 求教、求vb高手设计一个小程序，在form1的text1中，输入“很高兴见到你”，点击command1后等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！