1.VB代码翻译
2.VB代çç¿»è¯ã
3.如何用VB编翻译程序
4.VB代çç¿»è¯
5.帮å¿ç¿»è¯VB代ç
6.vb 代çç¿»è¯ï¼
VB代码翻译
Private Sub ComdQuery_Click() '查询 数据库表格 然后显示在 DataGrid1的翻译翻译 表格控件上
Dim SqlStr As String
Dim rsCheck As New Recordset
Dim sRoomID As String
Dim sMemberID As String
Dim dOTime As String '变量声明
sRoomID = Trim(Me.CombRoomID.Text)
sMemberID = Trim(Me.CombMemberID.Text) '变量=窗体控件上的数据 （赋值）
dOTime = Trim(Me.DTPicker1.Value)
'这个数据库表格字段名 是英文写的，因此 查询显示时需要将其变为中文 这样才直观看。源码 这些臭长臭长 As 都是代码大全变换呢 后面的 Where 后面的句子 是条件语句 按照 房间号 啊 日期啊等等做条件来查的。
SqlStr = "select CheckID as 帐单编号,翻译翻译高恪源码OpenDate as 开房日期" & ",MemberID as 会员编号,ClientName as 客户姓名" & ",RoomID as 房间编号,RoomType as 房间类型" & ",RoomPrice as 房间价格,OpenRoomTime as 开房时间" & ",EndTime as 结束时间,Prepay as 预付金额" & ",Agio as 折扣,PayMode as 付款方式,RoomMoney as 消费金额 " & "from CheckInfo where RoomID like " & "" & " '%" & sRoomID & "%'" & "and MemberID like " & "'%" & sMemberID & "%'" & "and OpenDate ='" & dOTime & "'"
Set rsCheck = Conn.Execute(SqlStr) '让SQL 连接执行刚才的语句。
Set DataGrid1.DataSource = rsCheck '让DataGrid1表格控件绑定检索返回 来显示到界面上。源码
Set rsCheck = Nothing '注销刚才的代码大全路由密码 源码连接
End Sub
Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 2 '垂直方向居中
Me.Left = (Screen.Width - Me.Height) / 2 '水平方向居中
With Conn
Conn.CursorLocation = adUseClient
Conn.CommandTimeout =
Conn.ConnectionString = g_ConnStr '打开数据库连接
Conn.Open
End With
Dim SqlStr As String
Dim rsDestine As New Recordset '和上面的一样
SqlStr = "select CheckID as 帐单编号,OpenDate as 开房日期" & ",MemberID as 会员编号,ClientName as 客户姓名" & ",RoomID as 房间编号,RoomType as 房间类型" & ",RoomPrice as 房间价格,OpenRoomTime as 开房时间" & ",EndTime as 结束时间,Agio as 折扣,Prepay as 预付金额" & ",PayMode as 付款方式,RoomMoney as 消费金额 from CheckInfo"
Set rsDestine = Conn.Execute(SqlStr)
Me.DataGrid1.ColumnHeaders = True
Set DataGrid1.DataSource = rsDestine
Set rsDestine = Nothing
'从数据库中读取数据写入房间编号下拉列表框
Dim adoRs As New ADODB.Recordset '不知道这代码谁写，一个连接就行了搞这么多
Dim DBStr As String '上面的翻译翻译查询完毕 关闭再连接就是了 这样搞 还要重新
DBStr = "select RoomID from RoomInfo " '声明变量 再连接， 吃饱了撑的源码。
adoRs.Open DBStr,代码大全 Conn, adOpenStatic, adLockReadOnly
'如果需要我给你重写一下 这么长 其实都是一样的
If adoRs.RecordCount > 0 Then '只是查询的表不同吧了。
adoRs.MoveFirst
Do While Not adoRs.EOF '循环读取所有数据 然后添加到 名字叫 CombRoomID 的翻译翻译 ComboBox中
CombRoomID.AddItem adoRs.Fields(0).Value
adoRs.MoveNext '下一条 直道没有 就不Loop了
Loop
End If
adoRs.Close
Set adoRs = Nothing
'从数据库中读取数据写入会员编号下拉列表框
Dim adoMemIDRs As New ADODB.Recordset
DBStr = "select MemberID from MemberInfo" '这和前面的一样 变量名变变吧了。
adoMemIDRs.Open DBStr,源码 Conn, adOpenStatic, adLockReadOnly
If adoMemIDRs.RecordCount > 0 Then
adoMemIDRs.MoveFirst
Do While Not adoMemIDRs.EOF
CombMemberID.AddItem adoMemIDRs.Fields(0).Value
adoMemIDRs.MoveNext
Loop
End If
adoMemIDRs.Close
Set adoMemIDRs = Nothing
End Sub
VB代çç¿»è¯ã
Dim d As Boolean 'å®ä¹å ¨å±åédï¼ä»£è¡¨ç§»å¨æ¹å
Private Sub Form_Load() 'ç¨åºå¯å¨æ¶è½½å ¥è¿è¡
Label1.Left = Me.Width - Label1.Width 'Label1移å¨å°æéçªä½å³è¾¹
Timer1.Interval = 'å®æ¶å¨è®¾ç½®ä¸º0.1ç§
d = True 'åå§ådï¼æ¹ååå·¦
End Sub
Private Sub Timer1_Timer()
If d Then 'å¦æd=true
Label1.Left = Label1.Left - 'Label1å左移å¨å¤
Else
Label1.Left = Label1.Left + 'å¦åLabel1åå³ç§»å¨å¤
End If
If Label1.Left <= 0 Then 'å¦æLabel1è¶ åºçªä½å·¦è¾¹æ¡
d = False 'æ¹åæ¹ä¸ºåå³
End If
If Label1.Left >= Me.Width - Label1.Width - Then 'å¦æLabel1è¶ åºçªä½å³è¾¹æ¡-å¤
d = True 'æ¹åæ¹ä¸ºåå·¦
End If
End Sub
如何用VB编翻译程序
我建议使用text文件，汉字之间不用分隔符，代码大全不分行，翻译翻译淘金800源码直接按照你的源码顺序放进去就好了（但注意，不能乱顺序，代码大全不能少字！学生源码）
然后使用下面的代码。
Const 标题 = "代码翻译成汉字"
Dim 汉字表 As String
Private Sub Command1_Click()
Dim 代码 As Integer
'排除错误的输入
If Not IsNumeric(Text1) Then 'text内容不是数字
MsgBox "你输入的不是十进制代码！" & vbCrLf & "请重新输入。职称 网站源码", vbCritical, 标题
Text1 = ""
Exit Sub
End If
If Len(Text1) > 4 Then '代码太长
MsgBox "你输入代码太长！" & vbCrLf & "请重新输入。", vbCritical, 标题
Text1 = ""
Exit Sub
End If
代码 = Int(Text1)
If 代码 > Or 代码 < 0 Then '超出范围
MsgBox "你输入代码没有对应的汉字！有效代码0~" & vbCrLf & "请重新输入。", vbCritical, 标题
Text1 = ""
Exit Sub
End If
'其他的输入错误我不知道还会有什么？你自己加在这里
Text2 = Mid(汉字表, 代码 + 1, 1) '唉，有效代码就是这一行！其他都是陪衬
End Sub
Private Sub Form_Load()
'界面安排
Command1.Caption = "翻译"
Text1 = ""
Text2 = ""
Text1.Move , , ,
Text2.Move , , ,
Command1.Move , , ,
Height =
Width =
Caption = 标题
'读入汉字表
Open App.Path & "\汉字表.txt" For Input As #1
Input #1, 汉字表
Close #1
End Sub
Private Sub Text1_Change()
Text2 = ""
End Sub
VB代çç¿»è¯
Private Sub Command1_Click() æé®1çåå»äºä»¶
Dim B() As Byte 声æä¸ä¸ªåèæ°ç»
Dim PassWord As String 声æä¸ä¸ªå符串
Dim B1() As Byte 声æä¸ä¸ªåèæ°ç»
Dim I As Long, l As Long, j As Long 声æä¸ä¸ªé¿æ´æ°
Open "c:\pass.txt" For Binary As #1 æå¼ææ¬æ件ï¼ç¨äºè¿å¶æ¹å¼
If LOF(1) > 0 Then å¦ææ件é¿åº¦å¤§äº0
j = LOF(1) J为æ件çé¿åº¦
ReDim B(LOF(1) - 1) éæ°å®ä¹åèæ°ç»B为æ件é¿åº¦
Get #1, , B å°æ件çå 容èµå¼ç»æ°ç»B
End If If ç»æ
Close #1 å ³éææ¬æ件
Dim P As Long å®ä¹ä¸ä¸ªé¿æ´æ°
PassWord = "OutsideFile" èµå¼ç»å符串
l = Len(PassWord) LçäºPassWordçé¿åº¦
ReDim B1(l) å°åèæ°ç»å®ä¹ä¸ºL个å ç´
For I = 1 To l 循ç¯ä»1å°PassWordé¿åº¦
B1(I) = Asc(Mid(PassWord, I, 1)) åèæ°ç»æ¯ä¸ªå ç´çäºPassWordçæ¯ä¸ªå符çASCå¼
Next 循ç¯ç»æ
For I = 0 To UBound(B) 循ç¯ä¸º0å°Båèæ°ç»ä¸é
B(I) = B(I) Xor B1(P) Båèæ°ç»æ¯ä¸ªå ç´çäºå ¶å¼ä¸B1åèæ°ç»ç¸åºåèçå¼æå¼
P = P + 1 På¼å¢å
If P > l Then P = 0 å¦æPå¼å¤§äºPassWordçé¿åº¦åä»é¶å¼å§
Next 循ç¯ç»æ
Open "c:\password.txt" For Binary As #1 æå¼æ建ç«äºè¿å¶æ件
Put #1, , B å°åèæ°ç»Bçå ç´åå ¥
Close #1 å ³éææ¬æ件
帮å¿ç¿»è¯VB代ç
Private Sub mnufuzhi_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText '设置å å«å½åæéæ©ææ¬çå符串
End Sub
Private Sub mnujianqie_Click()
Clipboard.Clear 'åªè´´æ¿æ¸ 空
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub
Private Sub mnuqianjing_Click()
CommonDialog1.ShowColor 'è°ç¨å¯¹è¯æ¡æ§ä»¶ æå¼è°è²æ¿
Text1.ForeColor = CommonDialog1.Color 'text1åæ¯è²ä¸ºéæ©çé¢è²
End Sub
Private Sub mnuqingchu_Click()
Text1.Text = ""
End Sub
Private Sub mnuquanxuan_Click()
Text1.SetFocus 'text1 è·å¾ç¦ç¹
Text1.SelStart = 0 'å æèµ·å§ä½ç½®ä¸º0
Text1.SelLength = Len(Text1.Text) '设置æéæ©çå符æ°
End Sub
Private Sub mnutui_Click()
Unload Me 'å¸è½½èªèº«
End Sub
Private Sub mnutuichu_Click()
mnutui_Click 'è°ç¨mnutui_Clickè¿ç¨
End Sub
Private Sub mnuzhantie_Click()
Text1.SelText = Clipboard.GetText 'åªè´´æ¿ææ¬èµå¼æ¿æ¢éå®çææ¬
vb 代çç¿»è¯ï¼
Option Explicit'ä¸è½ä½¿ç¨éå¿åéPrivate perW As Long, perH As LongPrivate Row As Long, Col As LongPrivate numS As Long, numE As LongPrivate lastEndNum As Long'ç³è¯·çåé Private Sub cboCol_Click() Update'è°ç¨è¿ç¨/å½æ°End SubPrivate Sub cboRow_Click() Update'åä¸End Sub Private Sub Form_Load() Dim i As Long'ç³è¯·åé txtFrom.Text = "1"'ææ¬å 容è¿1 txtTo.Text = ""'ææ¬æ¡tetto为 numS = 1'åéå¼ä¸º1 For i = 1 To '1 to çfor cboRow.AddItem CStr(i * )'æ·»åæ°æ®,åºè¯¥æ¯ combobox ä¸å [,....] cboCol.AddItem CStr(i * ) Next i cboRow.ListIndex = 0'æ¾ç¤ºç¬¬ä¸ä¸ªæ°æ®,ä¸å cboCol.ListIndex = 0End Sub
vb 代码翻译
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
'Text1的键盘按下事件
Static i As Integer '声明变量i
If KeyCode = Then '如果按下回车
If (Text1.Text) = "abcd" Then '如果Text1中的内容是abcd
Label2.Caption = "你已成功进入" 'Label2显示
ElseIf i < 3 Then '如果i小于3
i = i + 1 'i增加1
MsgBox "口令错！请重新输入" '对话框
Text1.SetFocus 'Text1得到焦点
Else
MsgBox "你无权进入系统" '对话框
End If
End If
End Sub
'这个程序虽然执行起来是没有问题的，但是3次输入的限制是起不到作用的，可以改成下面这样
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Static i As Integer
If KeyCode = Then
If i < 3 Then
If (Text1.Text) = "abcd" Then
Label2.Caption = "你已成功进入"
Else
MsgBox "口令错！请重新输入"
Text1.SetFocus
End If
Else
MsgBox "你无权进入系统"
End If
i = i + 1
End If
End Sub
