1樓：網海1書生
1、cishu、datate必須是全域性變數
2、picture1的autoredaw屬性必須設為true
暫時只能說這兩點，因為你的**沒有貼完整，尤其是沒有顯示draw的呼叫**
2樓：我們的夢
設定一下屬性試試
form1.autoredraw = truepicture1.autoredraw = true另，你的picture1.backcolor屬性也改一下試試。
還有，在畫圖的迴圈里加一個語句，看看有沒有進入迴圈。
3樓：sql的藝術
採集的資料
if kkk(0) = 2 then
text = kk
datate(cishu) = kk
grid.col = 1: grid.row = cishu + 1grid.text = kk
cishu = cishu + 1
繪圖程式
private sub draw()
picture1.cls
picture1.drawwidth = 1picture1.backcolor = qbcolor(15)picture1.
scale (0, 200)-(200, 0)for c = 1 to cishu - 1x1 = (c - 1): y1 = datate(c - 1)x2 = c: y2 = datate(c)picture1.
line (x1, y1)-(x2, y2), qbcolor(0)
doevents
next c
doevents
end sub
4樓：麒麟中國
picture1的autoredaw=true
再呼叫一下picture1.refresh
另外要在窗體載入之後再劃線，若是放到form_load裡，是肯定不顯示的。以前我畫過，程式**都沒問題，在窗體載入後呼叫劃執行緒序就可以顯示了
vb中picturebox控制元件實時畫曲線,清屏之後picturebox控制元件閃爍?
5樓：匿名使用者
清屏當然會閃，如果電檢視像每幀畫面上去之前都先刷白一下，估計也是這樣的吧。應該用背景色重畫一次原來的圖形，或者畫筆採用vbnotxor（非異或筆）模式，這樣在白色背景上畫上去的色正好是前景色，再畫一次恢復原來的背景。
另外用line控制元件效果不好，可能也會閃，不如直接畫背景網格。
vb6在picturebox裡用gdi+繪圖，為什麼在繪圖之前呼叫cls方法會導致圖形不顯示？？如何實現預期效果？
6樓：
你的畫布(graphics)是用**框的dc建立的，而cls方法會重置dc，當然不行了，gdi 有專用的清除畫布的函式gdipgraphicsclear
7樓：匿名使用者
可能把畫筆清除了。
把picture1.cls 提前到第一行就ok了！
vb picturebox控制元件中可以畫曲線嗎
8樓：
dim b as new bitmap(picturebox1.width, picturebox1.height)
dim g as graphics = graphics.fromimage(b)
g.clear(color.white)
dim p as new pen(color.black)
p.endcap = drawing2d.linecap.arrowanchor
g.drawline(p, 30, picturebox1.height - 30, 30, 30)
g.drawline(p, 30, picturebox1.height - 30, picturebox1.
width - 30, picturebox1.height - 30)
dim i as integer
dim bs as new solidbrush(color.green)
dim po as new point
po.x = 0
po.y = picturebox1.height - 35
for i = 700 to 1000 step 50
g.drawstring(i, me.font, bs, po.x, po.y)
g.drawline(p, po.x + 28, po.y + 5, po.x + 30, po.y + 5)
po.y -= (picturebox1.height - 100) / 6
next
po.x = 30
po.y = picturebox1.height - 30
for i = 0 to 40 step 5
g.drawstring(i, me.font, bs, po.x, po.y + 5)
g.drawline(p, po.x, po.y + 2, po.x, po.y)
po.x += (picturebox1.width - 100) / 8
next
picturebox1.image = b
9樓：vb程式設計解放雙手
當然可以的！用vb做儀表盤一般都要畫曲線的
vb的picturebox中如何同時設定兩個座標進行實時曲線的繪製
10樓：匿名使用者
private sub command1_click()
picture1.cls
picture1.autoredraw = true
'設定第一個座標系，左上角座標x,y為0,12，右下角座標x,y為12,0
'即picture1的左下角為座標0點
picture1.scale (0, 12)-(12, 0)
for x = 0 to 12 step 0.01 '繪製y=6*sin(x)曲線
y = 6 * sin(x)
picture1.pset (x, y), vbred
next
'設定第二個座標系，左上角座標x,y為-12,12，右下角座標x,y為12,-12
'即picture1的中心為座標0點
picture1.scale (-12, 12)-(12, -12)
for i = -3.14 to 3.14 step 0.01 '繪製圓曲線,由於picture為不是正方形，所以畫出來的看著為橢圓
x = 5 * sin(i)
y = 5 * cos(i)
picture1.pset (x, y), vbblue
next
end sub
11樓：沒名也要進
會做一個就會做兩個吧？
第一個做得好些，把原點、比例、軸、顏色等都考慮到，做成引數。第二個照著再做一遍，改下引數就是了。
VB按鈕控制元件的問題
一樣的地方可以設定成函式。private function x 一樣的內容局譁 end function 然後在需要的地方進行呼叫就可以了。但是如果只有一句兩句建議枝桐就不要使用自定義函式了，直接用猛臘坦 好了。可改成如下 if 3 2 5 then msgbox 對 select case ind...
VB如何使用time控制元件
timer 控制元件 最主要的就是enabled屬性，和interval屬性，下面有詳細介紹 通過引發 timer 事件，timer 控制元件可以有規律地隔一段時間執行一次 語法。timer 說明。timer 控制元件用於背景程序中，它是不可見的。以下是他的屬性 enabled 屬性。返回或設定一個...
vb使用data控制元件引用ACCESS問題
伱是不是用 microsoft office access 做的資料庫？這個版本的access vb6.0不能識別 所以伱要在伱的vb6.0裡面運用 add in 也就是外接程式來建立資料庫 在外接程式 add in 中選 視覺化資料管理器 visdata 點 檔案 file 新建 new micr...