| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 775 人关注过本帖
标题:请永夜的极光帮忙,有关综合应用的问题
只看楼主 加入收藏
kgdwgija
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2008-9-25
收藏
 问题点数:0 回复次数:3 
请永夜的极光帮忙,有关综合应用的问题
Private Sub Form_Load()
Combo1.AddItem "大专"
Combo1.AddItem "本科"
Combo1.AddItem "硕研究生"
Combo1.AddItem "博士研究生"
Combo2.AddItem "无"
Combo2.AddItem "学士"
Combo2.AddItem "硕"
Combo2.AddItem "博士"
End Sub

Private Sub Image1_Click()

Str =
Right = Right(Str, 3)
If Right <> "jpg" Then
mgbox "你选的不是图片"
Else
Image.Stretch = ture
Image1.Picture = LoadPicture(Str)
End If
End Sub


当我选中单击image控件时就报出Str参数不可选。。
本来应该是要调出选择框的。
搜索更多相关主题的帖子: 永夜 极光 应用 
2008-10-11 13:17
simpson
Rank: 3Rank: 3
等 级:论坛游民
威 望:7
帖 子:863
专家分:17
注 册:2006-11-16
收藏
得分:0 
真是错误百出
报Str不可用是因为你没定义,或者不强制定义
Right 变量  跟Right函数同名
Image.Stretch 还是Image1.Stretch
mgbox?  Msgbox啊!!

全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]
2008-10-11 13:51
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
[un]Joforn[/un]回复[bo][un]kgdwgija[/un] 在 2008-10-11 13:17 的发言:[/bo]

程序代码:
Private Sub Image1_Click()
  Dim STR1 As String, Right3 As String
   =  Len(STR1) Then
    Right3 = Right(STR1, 3)
    If Right3 <> "jpg" Then
      mgbox "你选的不是图片"
    Else
      Image.Stretch = ture
      Image1.Picture = LoadPicture(STR1)
    End If
  End If
End Sub

VB QQ群:47715789
2008-10-11 15:42
kgdwgija
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2008-9-25
收藏
得分:0 
simpson 骂的好。。。学习学习。。。。我是新手
2008-10-12 10:25
快速回复:请永夜的极光帮忙,有关综合应用的问题
数据加载中...
 
   



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

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