由于写不下,我在问题补充中说明内容
请大家去http://taoaaasss2.ys168.com/中的VB文件夹中下载TXT文档,麻烦大家了,谢谢
会VB的快进来帮我写下代码,十分感谢!
这是第一个:Private Sub Command2_Click()Unload Me End Sub Private Sub Form_Load()Print "我们大家一起来轻松学习VB语言"Me.Caption = "第一个visual basic 程序"Label1.Caption = "编写VB程序是一件非常有趣的事情"Command1.Caption = "画面已经改变"Command2.Enabled = True End Sub 这是...
帮忙翻译一下VB代码(加点注释)
'有缘帮你写详细点吧 Private Sub Command1_Click() '按钮1点击事件 End '退出程序 End Sub Private Sub Form_Load() '主窗口启动事件 textsend.Visible = False 'textsend是文本框控件吧,把它设为不可见 textget.Visible = False '同上,textget设为不可见 Winsockserver.LocalPort = 1001 '...
懂VB的进来下,帮我翻译下这段代码的意思,谢谢了
没有看到MondayTuesdayWednesdayThurdayFridaySaturdayMayJuneJulyAugust SeptemberOctoberNovemberDecemberSunMonTueWedThuFriSatSundayJanFebMarAprMayJunJulAugSepOctNovDec0JanuaryFebruaryMarchApril=Overflowwhileconvertingvariantoftype(%s)intotype(%s)VariantoverflowInvalidargumentInvalidvarianttypeOperationnotsupported...
VB数据代码翻译
Private Sub Command1_Click()Data1.Recordset.MoveFirst '移动到第一条记录 Data1.Recordset.FindFirst "帐号='" & Trim(Text1.Text) & "'" '从记录集中查找满足条件的第一条记录 If Data1.Recordset.NoMatch Then '当nomatch=true 就是没找到匹配记录则 MsgBox "没有此用户", 48, "提示" '...
会VB的快进来帮我写下代码,十分感谢!
1.Private Sub Form_Click()if text1.text=123 then msgbox “密码不正确”else msgbox “密码错误”End Sub 2.Private Sub Command1_Click()Text1.FontName = "楷体"text1.fontsize=26 Text2.FontName = "隶书"text2.fontsize=26 text2.FontItalic=true text1.passwordchar=""End Sub 3....
请高手帮解释一下以下的VB代码
Unload Me '卸载当前窗体 End Sub Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ' 鼠标移动到frame1上边 触发该事件 Label2.FontUnderline = False ' label2去掉下划线 Label2.ForeColor = vbYellow' label2上边的字为黄色 Label3.Fo...
会VB的朋友进来看看。 这个代码加载进去后,老是说什么要求对象。运行...
其实你如果将添加到的控件都列出来,就一目了然了,这样很难知道,只能说你的控件少添加一个,或者是控件名称不对,我看过你的代码,应该是下面这个控件名称出错!label5.Caption = "面积=" = Str(s)label5这个控件名称应该有错,因为当你添加第一个label控件时,名称应该为1也就是label1,而不...
请高手帮忙详解下这个VB代码(请按步解释越详细越好不胜感谢必厚报...
If answer = vbYes Then ’如果answer =vbYes 运行下列代码 =VbNo 程序退出 DataGrid1.AllowDelete = True rs_client.Delete ’删除 rs_client.Update ’更新 DataGrid1.Refresh ’刷新 MsgBox "成功删除!", vbOKOnly + vbExclamation, "" ’提示成功 DataGrid1.AllowDelete = False Else ...
学过vb(visual basic)的,进来帮我解读下,100分就给你了。谢谢
Application.ScreenUpdating = False 关闭屏幕刷新 Application.EnableEvents = False 关闭事件 Dim nRow%, i% 定义 nrow 和i 两个变量为整形 Dim BeginR As Range, EndR As Range 定义beginr 和endr为range nRow = Range("n65536").End(xlUp).Row nrow=有记录的行数 Set BeginR = Range(...
VB编程的代码解释.例如Command是按钮的意思,都给我说说哈,谢谢了.
form 窗体的意思,像form和command这样的单词是控件的名称,名称是控件的属性之一,可以在屏幕右侧的属性列表中加以修改,找到name这一行,在右侧键入自己想要的名字即可,不必记忆,至于LostFocus..MouseUp是一些事件的名称,有必要记忆。下面写一些常用的。lostfocus失去焦点 getfocus得到焦点 load装载 unload...