你的简介很有意思，o(∩_∩)o...

wallescai大哥你好<br/>我刚开始学习VB图形处理，可是一直找不到好一点的教材或者源程序学习，我想用vb 画带箭头的直线、虚线、和一些特殊的图标（类似于word中带的线条），可是不知道怎么下手，请您指点下或者您手里有类似的源程序能给我发一份学习吗？万分感谢，另外，我看书里介绍说PICTURE控件内可以重新定义坐标（例如左上角（0，0）右下角（100，100））可是一直不是很明白，请教了。我的信箱tree_1981@163.com 期待回复。！ 

Walles Cai 回复于 2008-07-16

VB6的PICTURE控件可以画线,但是箭头的话,恐怕就要你自己计算一下线条的角度,然后在该角度上增减15度(或其它你自己定义的箭头夹角)再画两条短线来实现了. 线形的话,可以通过设置PICTRUE的DRAWSTYLE属性(似乎是这个,我现在家里,手头电脑没VB,你自己查一下)来实现了,但是只有当你画的线条的宽度(也就是粗细)为1的时候,线形才有效,如果线条的粗细大于1个像素,那么只能画出实心线.<br />你说的那个改变控件坐标定义的似乎是SCALE方法,不过我从来不用这个功能,把PICTRUE的SCALEMODE设为PIXEL,左上角是(0,0)右下角就是控件宽度和高度的像素值(同时也将窗体SCALEMODE设为PIXEL),这样的坐标系在计算机中是最自然的,任何计算机语言中都是这样定义的,所以没必要弄成其它特别的什么坐标系,只会把你自己弄晕而已

你好, 我要做的是这样一个软件,用户在界面上填了个人信息(姓名,性别,邮箱地址)后,点击"浏览"按钮,选中本地一个文件,再点击发送,就可以发送到程序内部指定的邮箱里了,  有没有办法实现呢?我是初学者,很头疼也很着急,非常感谢您的解答!

Walles Cai 回复于 2008-07-16

关于发邮件的问题,论坛上也回答了好多,我就偷懒了:  http://topic.csdn.net/u/20080619/18/97c90740-4012-40d7-a946-1ae02106faa3.html<br />你看一下吧

你好，我要用vb做一个按下拍照按钮，获取摄像头内的图像， 在拍下的照片上有一红框截取固定大小的照片，现在就是不知道怎样在摄像头显示的画面上截取固定尺寸的图片（比如只取头部），vb中该怎样画虚线框来取图呢？十分希望获得你的帮助。

晕倒，看我的回复呀，真是糊涂透顶，向bingbingliangliang朋友说声对不起，<br />我回复你“参考下我当时的那个帖子吧”的地址是：http://topic.csdn.net/t/20050922/13/4286753.html

想问一下传递一个假的参数的方法来强制下载的事。我看了那个网址没看明白，请高手解释一下，谢谢

Walles Cai 回复于 2008-06-06

我想，你肯能遇到的问题和我以前的一样，参考下我当时的那个帖子吧，确实解决了我遇到的问题，你也试试<br />

你好，可以帮帮我吗？<br/>这是一个用vb编写的程序，其中部分代码如下：<br/>Private Sub MDIForm_Load()<br/>    Dim Pstr, Pstr1 As String<br/>    Pstr = App.Path<br/>    If Right(Pstr, 1) <> "\" Then Pstr = Pstr + "\"<br/>    Pstr = Pstr + "data\kji.bgh"<br/>    Pstr1 = Dir(Pstr)<br/>    If Pstr1 = "" Then<br/>        MsgBox "系统数据文件丢失，请恢复！", vbOKOnly + 48, "计算机硬件公司管理系统"<br/>        dataDaoRu<br/><br/>    End If<br/><br/>    Pstr = App.Path<br/>    If Right(Pstr, 1) <> "\" Then Pstr = Pstr + "\"<br/>    Pstr = Pstr + "picture\640.jpg"<br/>    Pstr1 = Dir(Pstr)<br/>    If Pstr1 = "" Then<br/>        MsgBox "系统图片文件丢失，请恢复！", vbOKOnly + 48, "计算机硬件公司管理系统"<br/>        End<br/>    End If<br/>    Pstr = App.Path<br/>    If Right(Pstr, 1) <> "\" Then Pstr = Pstr + "\"<br/>    Pstr = Pstr + "picture\800.jpg"<br/>    Pstr1 = Dir(Pstr)<br/>    If Pstr1 = "" Then<br/>        MsgBox "系统图片文件丢失，请恢复！", vbOKOnly + 48, "计算机硬件公司管理系统"<br/>        End<br/>    End If<br/>    Pstr = App.Path<br/>    If Right(Pstr, 1) <> "\" Then Pstr = Pstr + "\"<br/>    Pstr = Pstr + "picture\1024.jpg"<br/>    Pstr1 = Dir(Pstr)<br/>    If Pstr1 = "" Then<br/>        MsgBox "系统图片文件丢失，请恢复！", vbOKOnly + 48, "计算机硬件公司管理系统"<br/>        End<br/>    End If<br/><br/>    Pstr = App.Path<br/>    If Right(Pstr, 1) <> "\" Then Pstr = Pstr + "\"<br/>    Pstr = Pstr + "help\help.chm"<br/>    Pstr1 = Dir(Pstr)<br/>    If Pstr1 = "" Then<br/>        MsgBox "系统帮助文件丢失！", vbOKOnly + 48, "计算机硬件公司管理系统"<br/>    End If<br/>问题1、（麻烦足句给出解释，谢谢了！！！）<br/>Private Sub MDIForm_Load()<br/>    Dim Pstr, Pstr1 As String<br/>    Pstr = App.Path<br/>    If Right(Pstr, 1) <> "\" Then Pstr = Pstr + "\"<br/>    Pstr = Pstr + "data\kji.bgh"<br/>    Pstr1 = Dir(Pstr)<br/>    If Pstr1 = "" Then<br/>        MsgBox "系统数据文件丢失，请恢复！", vbOKOnly + 48, "计算机硬件公司管理系统"<br/>        dataDaoRu<br/><br/>    End If<br/>问题2、（麻烦足句给出解释，谢谢了！！！）<br/> Pstr = App.Path<br/>    If Right(Pstr, 1) <> "\" Then Pstr = Pstr + "\"<br/>    Pstr = Pstr + "picture\640.jpg"<br/>    Pstr1 = Dir(Pstr)<br/>    If Pstr1 = "" Then<br/>        MsgBox "系统图片文件丢失，请恢复！", vbOKOnly + 48, "计算机硬件公司管理系统"<br/>        End<br/>    End If<br/>

Walles Cai 回复于 2008-06-06

这个，我还是没有看懂你说的问题是什么。<br />不过很明显：Dim Pstr, Pstr1 As String<br />这样的定义是有问题的，已经在论坛上被批判了无数次的错误。<br />这样写法，只有最后面那个变量是有类型的，前面的变量都是无类型的。<br />或许你的问题也来自与此吧