当前位置 > vb软件代码vb简单小游戏代码

• 

  求个vb聊天程序源代码

  加一个WInsock1控件,两个文本框(txtMess、txtSend)和一个按钮,代码如下Private Sub Command1_Click() Winsock1.SendData txtSend.Text '发送聊天内容 txtSend.Text = "" '聊天内容清空 End SubPrivate Sub Form_Load() Dim my As String Winsock1.Protocol = sckUDPProtocol '设置为U...

  2024-07-24 网络 更多内容 129 ℃ 849
• 

  VB程序代码的意思

  CommonDialog2.CancelError = True 如果用户点了取消的话 弹出一个错误的对话框 On Error GoTo ErrHandler 当有错误发生时让程序运行到标有ErrHandler处继续执行程序(这是对于上一条语句而言的有用户点取消时就会发生转向执行) CommonDialog2.Flags = cdlCFBoth Or cdlCFEf...

  2024-07-24 网络 更多内容 940 ℃ 520
• 

  VB程序源码如何使用

  需要安装vb6.0开发软件 如果安装了,就可以直接打开源码测试了,后缀名是vbp,(就是vb的工程文件) 如果没有安装vb6.0,还想打开源码看程序,那就右击 用记事本 打开后缀名为frm的文件,他是vb的窗口文件,源码都在他里面 一般得源码是没有生成exe可执行文件的,那样文件太多,太大,浪费空...

  2024-07-24 网络 更多内容 801 ℃ 185
• 

  随机数字VB程序代码

  text1.text=int((rnd*20)+1) 为了生成某个范围内的随机整数,可使用以下公式: Int((upperbound lowerbound + 1) * Rnd + lowerbound) upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限。 Rnd 函数 返回一个包含随机数值的 Single。 语法 Rnd[(number)] 可选的 numb...

  2024-07-24 网络 更多内容 327 ℃ 313
• 

  VB程序代码,数据排序

  Dim fenshu As VariantDim xuehao As VariantPrivate Sub Form_Load()Dim I As IntegerDim J As IntegerDim Temp As IntegerDim S As Integerfenshu = Array(85, 78, 65, 75, 55, 64, 74, 88, 63, 92)xuehao = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)Text1.Text = ""For I = 0 To 9 For J = I + 1...

  2024-07-24 网络 更多内容 910 ℃ 147
• 

  vb程序代码?

  Dim intPos As Integer Private Sub Command1_Click() If Trim(Text1.Text) = "" Then MsgBox "请输入!" Exit Sub End If List1.AddItem Text1.Text End Sub Private Sub Command2_Click() If List1.ListCount < 1 Then MsgBox "请选择要删除的项!" Exit Sub End If List1.RemoveItem (Lis...

  2024-07-24 网络 更多内容 972 ℃ 509
• 

  VB输入时间定时程序代码

  123456789101112131415161718192021'楼上的代码要稍做修改。'Text1=系统当前时间'Text2=设置关机小时'Text3=设置关机分钟 Private Sub Command1_Click()     MsgBox "设置成功,系统进入定时关机状态"  &nb...

  2024-07-24 网络 更多内容 951 ℃ 626
• 

  求一个简单的vb程序代码

  控件:shape两个,timer1个 Private Sub Timer1_Timer() Static a, b If Shape2.Left <= Shape1.Left Then a = 15 End If If ***.Top <= ***.Top Then b = 15 End If If Shape2.Left >= Shape1.Width + Shape1.Left Shape2.Width Then a = 15 End If If ***.Top >= Shape1.Height + ***.Top Shap...

  2024-07-24 网络 更多内容 941 ℃ 277
• 

  vb选择框程序代码

  举个例子 字体 3个单选框(可以弄成控件数组),在Click事件中 文本框.FontName=单选框的.Value 字形属性 FontBold(加粗) FontItalic(斜体) 。常规 不作处理 大小属性 Size 颜色属性 FontColor

  2024-07-24 网络 更多内容 607 ℃ 209
• 

  vb程序更新代码

  比较直接检测网页上的字符即可 下载时生成 .tmp文件 即出时生成bat文件 删除当前EXE 改名tmp文件为exe 完成更新

  2024-07-24 网络 更多内容 796 ℃ 102