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绘图区左上坐标,和大小(比例,刻度)
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
