| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 654 人关注过本帖
标题:新手求助---查不出错误
只看楼主 加入收藏
佑礼
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-10-4
收藏
 问题点数:0 回复次数:5 
新手求助---查不出错误
Private Sub Text1_Change()
If Len(Text1.Text) < 7 Then
    cmdCheck.Enabled = False------此处报错
Else
     cmdCheck.Enabled = True
     End If
End Sub

Private Sub cmdCheck_Click()
    Dim RNum As String, JNo As String
    Dim str As String
    Randomize
    RNum$ = Format(Int(Rnd * 9000000 + 1000000), "0000000")
    Picture1.Cls
    JNo = Text1.Text
    If JNo = RNum Then
      str = "Congratulations!You have won the first prize"
      ElseIf Right(JNo, 6) = Right(RNum, 6) Then
        str = "second Prize"
        ElseIf Right(JNo, 5) = Right(RNum, 5) Then
         str = "third Prize"
           ElseIf Right(JNo, 4) = Right(RNum, 4) Then
            str = "forth Prize"
              ElseIf Right(JNo, 3) = Right(RNum, 3) Then
               str = "fifth Prize"
                 ElseIf Right(JNo, 2) = Right(RNum, 2) Then
                  str = "sixth Prize"
                    ElseIf Right(JNo, 1) = Right(RNum, 1) Then
                     str = "Last Prize"
                       Else
                        str "Welcome"
    End If
    Picture1.Print "the correct number is:" & RNum
    Picture1.Print "your number is:" & JNo
    Picture1.Print str
    Text1.Text = ""
    Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then
    Select Case KeyAscii
        Case 48 To 57, 8
        Case Else
            KeyAscii = 0
    End Select
Else
    If Len(Text1.Text) = 7 Then
        cmdCheck_Click
    End If
End If
End Sub


我们学院有一个课程是把学生分成若干组,研究不同的课题,有点类似与做一个小项目,我们题目是小型的病人管理系统
现在同学在操作界面使用java还是vb出现了小分歧,我主张用vb,简单实用,java虽然现在是很流行,但是对于这样一个只有9周时间的小课程来说,我觉得有点小题大作了,vb足够应付,况且还要和数据库链接。。。平时上课也没有那么多时间,我觉得主要就是体验下,做项目的感觉,所以没必要没日没夜的研究java
大家看看我有什么办法能够说服同学使用VB,也可以提下,谢谢啦
搜索更多相关主题的帖子: False 
2008-11-05 16:26
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
Private Sub Text1_Change()
If Len(Text1.Text) < 7 Then
    cmdCheck.Enabled = False------此处报错
Else
     cmdCheck.Enabled = True
     End If
End Sub
你這幾句基本沒錯,提示什么信息

烈焰照耀世界,斌凍凍千萬裏
2008-11-05 16:39
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
控件没添加?

VB QQ群:47715789
2008-11-05 21:46
佑礼
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-10-4
收藏
得分:0 
出现这样的情况

1.jpg (28.29 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册
2008-11-06 13:15
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
我試了下沒錯啊,你看一下你控件名與你寫的代友的名字是不是一樣的

烈焰照耀世界,斌凍凍千萬裏
2008-11-06 15:01
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:0 
低级错误
2008-11-06 22:05
快速回复:新手求助---查不出错误
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.051414 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved