皮皮网

【重名小程序源码】【NC刀路预览 源码】【校园论坛源码大全】简单vb源码_vb源码网

2024-11-23 12:30:02 来源:源码安装空间

1.vb游戏代码大全vb小游戏源代码
2.vb做一个简单的小程序

简单vb源码_vb源码网

vb游戏代码大全vb小游戏源代码

       关于vb游戏代码大全,简单vb小游戏源代码这个很多人还不知道,源码源码今天来为大家解答以上的简单问题,现在让我们一起来看看吧!源码源码

       1、简单重名小程序源码Rem 窗体创建三个单选框按钮,源码源码NC刀路预览 源码OptionOption2、简单Option3 Private Sub Form_Activate() Option1.Caption = "石头" Option2.Caption = "剪刀" Option3.Caption = "布" Option1.Value = False Option2.Value = False Option3.Value = False End Sub Private Sub Option1_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "对方也出石头!源码源码继续!简单" Case 1: MsgBox "哈哈!源码源码你赢了!简单对方出的源码源码是剪刀!奖励你一个苹果!简单校园论坛源码大全" Case 2: MsgBox "你输了!源码源码对方出的简单是布哦!不好意思,苹果给对方了哈!医院预约系统源码在哪" End Select Option1.Value = False End Sub Private Sub Option2_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "你输了!对方出的是石头哦!不好意思。

       2、股票指标源码公式详解苹果给对方了哈!" Case 1: MsgBox "对方也出剪刀!继续!" Case 2: MsgBox "哈哈!你赢了!对方出的是布!奖励你一个苹果!" End Select Option2.Value = False End Sub Private Sub Option3_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "哈哈!你赢了!对方出的是石头!奖励你一个苹果!" Case 1: MsgBox "你输了!对方出的是剪刀哦!不好意思,苹果给对方了哈!" Case 2: MsgBox "对方也出布!继续!" End Select Option3.Value = False End Sub。

vb做一个简单的小程序

       Option Explicit

       Private Sub Form_Load()

        ShockwaveFlash1.Movie = "D:\wwwroot\KuFang\images\1.swf"

        ShockwaveFlash1.Menu = False

        ShockwaveFlash1.Playing = True

       End Sub

       Private Sub Timer1_Timer()

        End

       End Sub

       å»ºä¸€ä¸ªæ— è¾¹æ¡†çª—体,复制上面代码进去就OK了

       å·¥ç¨‹æ–‡ä»¶ç»™ä½ å‘过去了 后发的是修改过的 免去了需要修改路径的麻烦