VB画图求助
我在窗体上隐藏了一个picturebox,事件驱动后，picturebox为可见，后再在picturebox里定义坐标系，接着用line画图为什么画不出来啊？
谢谢帮助
picture1.line
.auotredraw=true
Private Sub Combo1_click()
Select Case Combo1.Text
Case "电机电压"
Picture2.Visible = True
Picture2.Scale (0, Picture2.ScaleHeight)-(Picture2.ScaleWidth, 0)
Picture2.Line (Picture2.ScaleWidth / 2, Picture2.ScaleHeight)-(Picture2.ScaleWidth / 2, 0), vbBlack
谢谢楼上回复
程序是这样的，像楼上说的改动后还是不能显示啊
VB code:
Option Explicit
Private Sub Combo1_click()
Select Case Combo1.Text
Case "电机电压"
Picture2.Visible = True
Picture2.Scale (0, 0)-(Picture2.ScaleWidth, Picture2.ScaleHeight)
Picture2.Line (Picture2.ScaleWidth / 2, Picture2.ScaleHeight)-(Picture2.ScaleWidth / 2, 0), vbBlack
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "电机电压"
Picture2.AutoRedraw = True
End Sub
Picture2.AutoRedraw = True这一句是关键
Picture2.Visible = True
Picture2.Scale (0, Picture2.ScaleHeight)-(Picture2.ScaleWidth, 0)
Picture2.Line (Picture2.ScaleWidth / 2, Picture2.ScaleHeight)-(Picture2.ScaleWidth / 2, 0), vbBlack
Picture2.Refresh '加这句试试
Picture2.Scale调整的是picture绘图区左上坐标,和大小(比例,刻度)
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
如题，VB中如何实现一PC控制N台PC机的开关机或者其他命令呢？
这个问题有点大哦.如不能在其它机器上也装程序的话,那只要看他们有没配置有远程控制开关机了
如果是那种客户/服务端的方式 ，就是被控制PC也需要安� ......
