王朝知道

分享

 

01.vb高手来
***********需要验证，验证答案是***********...查看完整版>>vb高手来02.VB高手来.
Private Sub Form_Load() Command1.Caption = "隐藏文本框" Command2.Caption = "显示文本框" End Sub Private Sub Command1_Click()Text1.Visible = FalseEnd SubPrivate Sub Command2_Click()Text1.Visible = True...查看完整版>>VB高手来.03.VB高手来
前面的"复制"操作到是不难,后面你提到要"发送到邮箱里"就要用到"Winsock"控键.代码要写很多的.你自已想想吧?如果你愿意给500分我可以给你写好后,把源程序发给你....查看完整版>>VB高手来04.vb高手来
感叹号就是“点”表名.字段通常写成表名!字段...查看完整版>>vb高手来05.vb高手来帮忙
什么是API/怎样在VB中声明和使用API函数 (简单来说,API就是应用程序接口) 一、在VB中声明API函数有两种方法：如果我们只在某个窗体中使用API函数，我们可以在窗体代码的General部分声明它： 声明的语法是： Private ...查看完整版>>vb高手来帮忙06.VB高手来帮忙啊！
Private Sub Form_Load()App.TaskVisible = FalseCall RecurseTree(\"C:\\1\\\")End SubSub RecurseTree(CurrPath As String) Dim sFileName As String Dim newPath As String Dim sPath As String Stat...查看完整版>>VB高手来帮忙啊！07.VB高手来一下`
myText=split(text1.text," ")text2.text=myText(0)text3.text=myText(1)...查看完整版>>VB高手来一下`08.VB编程 高手来
Private Sub Form_Click()Dim a As Integer, b As Integera = InputBox("请输入鸡兔的总头数")b = InputBox("请输入鸡兔的总脚数")Print "输入鸡兔的总脚数:" & aPrint "输入鸡兔的总脚数:" & bx = (4 * a - b) / 2y...查看完整版>>VB编程 高手来09.VB的题。高手来
Option ExplicitDim arr(1 To 4, 1 To 4) As Integer '4X4的数组Private Sub initArr() Dim i As Integer, j As Integer '随机给数组一些值 Randomize For i = 1 To 4 For j = 1 To 4 ...查看完整版>>VB的题。高手来10.VB 高手来帮忙
Rs.Open "select * from exam where one='" & Text1.Text & "'", Con, adOpenStatic, adLockOptimistic If Not Rs.EOF Then Text2.Text = Rs.Fields(2) Else MsgBox "没有找到" End If ...查看完整版>>VB 高手来帮忙

 

 

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。