网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
09月03日漏签0天
vb吧 关注:156,084贴子:1,166,237
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 7回复贴,共1页
<<返回vb吧
>0< 加载中...

小弟作业求帮助

  • 只看楼主
  • 收藏

  • 回复
  • Mr_7moon
  • 世界你好
    3
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
怎么才能做到当点击按钮A和按钮1的时候选择商品


  • Mr_7moon
  • 世界你好
    3
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
大神们求帮助啊[FACE WITH TEARS OF JOY]


2025-09-03 22:33:33
广告
不感兴趣
开通SVIP免广告
  • 只会VB
  • 网络通信
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
那个A B C 1 2 3对应的是什么啊?


  • 只会VB
  • 网络通信
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
ABC做一个控件数组
123做一个控件数组
Dim lCurrTypeSel As Long '当前选定的字母
Dim lCurrNumSel As Long '当前选定的数字
Private Sub CmdTypeSel_Click(Index As Integer)
lCurrTypeSel = Index
Call CheckSel
End Sub
Private Sub CmdNumSel_Click(Index As Integer)
lCurrNumSel = Index
Call CheckSel
End Sub
Private Sub CheckSel()
If lCurrTypeSel < 0 Or lCurrNumSel < 0 Then
Exit Sub
End If
'---因为不知道你的图片是用什么实现的,自己改改
MsgBox "当前选定的图片序号为:" & lCurrTypeSel * 3 + lCurrNumSel
End Sub
Private Sub Form_Load()
lCurrTypeSel = -1
lCurrNumSel = -1
End Sub


  • 骄傲地蚂蚁
  • 网络通信
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
不明觉厉,类似于做个简易计算器传值。。。。?


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 7回复贴,共1页
<<返回vb吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示