广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 4100 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
天之心
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x0
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[Basic][求助] VB2008的表单呼叫完程式有冲突
请问各位大大.表单Form1呼叫Form2之后程式有2个地方冲突.
(一)cnt = offset Mod ImageList1.Images.Count
(二)e.Graphics.DrawImage(ImageList1.Images(cnt), dstRect, srcRect, GraphicsUnit.Pixel)
把这2个关掉之后便可以呼叫表单.要如何时这2个程式能够完整运转

有建立 ImageList1 元件
 ImageList1 里面有图片

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub


Public Class Form2
    ..

访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容



[ 此文章被天之心在2011-07-21 18:46重新编辑 ]



献花 x0 回到顶端 [楼 主] From:台湾中华电信股份有限公司 | Posted:2011-07-18 23:40 |
ebolaman 手机 会员卡
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖

级别: 副版主 该用户目前不上站
版区: 程式设计
推文 x38 鲜花 x458
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

根据

(一)cnt = offset Mod ImageList1.Images.Count
(二)e.Graphics.DrawImage(ImageList1.Images(cnt), dstRect, srcRect, GraphicsUnit.Pixel)

推断


Mod 会发生错误通常都是因为 后面的数值是 0
例如 cnt = 100 Mod 0  就会发生错误
或是根本没有 ImageList1 这个物件,这两行的共通点就是都有使用到 ImageList1 这个物件


你有建立 ImageList1 元件吗?
你的 ImageList1 里面有图片吗?


如果以上都没问题,希望你能给一下 ImageList1 的图片,以及 offset 值

并给错误的叙述 (例如 溢位...)


My BOINC stats :

献花 x0 回到顶端 [1 楼] From:台湾宽频通讯顾问股份有限公司 | Posted:2011-07-19 08:21 |
ebolaman 手机 会员卡
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖

级别: 副版主 该用户目前不上站
版区: 程式设计
推文 x38 鲜花 x458
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

由于环境条件不足,我无法推断错误发生的原因 (刚刚用你的 程式码+图片 模拟,并没有任何错误发生)


请在错误发生的时候,选取错误的叙述文字,并且复制 (例如: 尝试以零除。)

并在此贴上,并且叙述 发生错误在 哪行程式码,以及什么动作导致这个错误发生,以及时间点 (例如:刚开 Form2 的时候...或是跑一阵子,或是 Timer.Interval=300 的情况下,跑了 10 次...)


另外你可以插入一些 Debug 文字,例如

在发生问题的程式码前插入这一行,并且 点选 功能表 >> Debug >> Windows >> Immediate (Ctrl + G)

复制程式
Debug.Print("offset=" & offset & ", cnt=" & cnt & " [dst] X=" & dstRect.X & ", Y=" & dstRect.Y)

则可以进一步厘清 问题的真相


My BOINC stats :

献花 x0 回到顶端 [2 楼] From:台湾宽频通讯顾问股份有限公司 | Posted:2011-07-19 23:58 |
天之心
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x0
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

请问大大 这一段在VB内我找不到 点选 功能表 >> Debug >> Windows >> Immediate (Ctrl + G)

(一)cnt = offset Mod ImageList1.Images.Count
(一)[侦错]尝试以零除。
(二)e.Graphics.DrawImage(ImageList1.Images(cnt), dstRect, srcRect, GraphicsUnit.Pixel)
(二)[侦错]InvalidArgument='0' 不是 'index' 的有效值。 参数名称: index

Form2表单 单独呼叫是可以正常运作.但是Form1表单呼叫Form2表单就会出现2个错误
正常表单呼叫表单应该是不会有错误讯息.我想会不会是呼叫表单不可以用Form2.Show()
类型呼叫


献花 x0 回到顶端 [3 楼] From:台湾中华电信股份有限公司 | Posted:2011-07-20 21:25 |
ebolaman 手机 会员卡
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖

级别: 副版主 该用户目前不上站
版区: 程式设计
推文 x38 鲜花 x458
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

下面是引用 天之心 于 2011-07-20 21:25 发表的 : 到引言文
请问大大 这一段在VB内我找不到 点选 功能表 >> Debug >> Windows >> Immediate (Ctrl + G)

(一)cnt = offset Mod ImageList1.Images.Count
(一)[侦错]尝试以零除。
(二)e.Graphics.DrawImage(ImageList1.Images(cnt), dstRect, srcRect, GraphicsUnit.Pixel)
(二)[侦错]InvalidArgument='0' 不是 'index' 的有效值。 参数名称: index

Form2表单 单独呼叫是可以正常运作.但是Form1表单呼叫Form2表单就会出现2个错误
正常表单呼叫表单应该是不会有错误讯息.我想会不会是呼叫表单不可以用Form2.Show()
类型呼叫


你是不是把 ImageList1 放在 Form1 了?

我在 1楼有提过 这个错误


My BOINC stats :

献花 x0 回到顶端 [4 楼] From:台湾宽频通讯顾问股份有限公司 | Posted:2011-07-20 22:20 |
天之心
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x0
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Form2.Show()
  End Sub


Form1 表单只有这个
另外我传上图片


本帖包含附件
zip VB2008.rar   (2022-06-09 14:18 / 1008 KB)   下载次数:3


[ 此文章被天之心在2011-07-21 18:49重新编辑 ]


献花 x0 回到顶端 [5 楼] From:台湾中华电信股份有限公司 | Posted:2011-07-21 18:30 |
ebolaman 手机 会员卡
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖

级别: 副版主 该用户目前不上站
版区: 程式设计
推文 x38 鲜花 x458
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

下面是引用 天之心 于 2011-07-21 18:30 发表的 : 到引言文
Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Form2.Show()
  End Sub


Form1 表单只有这个
另外我传上图片



在 Form2 的程式码使用以下两行

(一)cnt = offset Mod ImageList1.Images.Count
(一)[侦错]尝试以零除。
(二)e.Graphics.DrawImage(ImageList1.Images(cnt), dstRect, srcRect, GraphicsUnit.Pixel)
(二)[侦错]InvalidArgument='0' 不是 'index' 的有效值。 参数名称: index


时候会发生错误就明显的代表着 ImageList1.Images.Count 这个值 是 0

也就代表着 ImageList1 这个物件的图片的 总数是 0

就是说,没有图片在 ImageList1 里面


请检查一下 Form2 ImageList1


此文章被评分,最近评分记录
财富:50 (by 三仙) | 理由: ^^ 因为您的参与,让程式设计更容易!!


My BOINC stats :

献花 x1 回到顶端 [6 楼] From:台湾宽频通讯顾问股份有限公司 | Posted:2011-07-21 19:42 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.063311 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言