1樓：寒信
一個picture1,一個timer1.
**如下：圓形軌跡
dim angle as double
const pi = 3.1415926
private sub form_load()timer1.interval = 1
timer1.enabled = trueend sub
private sub timer1_timer()angle = angle + pi / 90picture1.left = 500 * cos(angle) + me.scalewidth / 2
picture1.top = 500 * sin(angle) + me.scaleheight / 2
end sub
怎麼在vb裡picturebox中輸出文字到特定位置？
2樓：小周愛嘮叨
textheight 返回字串高度。
textwidth 返回字串寬度。
指定位置 n 為中心線輸出文字。
currenty=n-textheight(text)/2print text
vb.net中如何在picturebox畫線，有什麼函式？
3樓：雷愛曼雙魚
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
在vb中如何儲存在picture框中用pest方法畫的圖形? 20
4樓：
加上picture1.autoredraw = true試試
vb中如何根據picturebox的大小自動調整相片
5樓：匿名使用者
新增兩個picture控制元件，先載入picture2，然後根據picture1的大小自動調整顯示。
**如下：
private sub form_load()
picture1.autoredraw = true '重繪**
picture1.autosize = false '**框大小不變
picture1.visible = true
'picture1.backcolor = rgb(255, 255, 255) '設定**框背景顏色
picture2.autosize = true 'picture2自動縮放以適應**，不可見
picture2.visible = false
end sub
private sub command1_click()
載入到pic2
if picture2.scalewidth > picture2.scaleheight then
imagewidth = picture1.scalewidth
imageheight = picture1.scaleheight * picture2.scaleheight / picture2.scalewidth
else
imagewidth = picture1.scalewidth * picture2.scalewidth / picture2.scaleheight
imageheight = picture1.scaleheight
end if
picture1.cls
picture1.paintpicture picture2, (picture1.scalewidth - imagewidth) / 2, (picture1.
scaleheight - imageheight) / 2, imagewidth, imageheight, 0, 0, picture2.scalewidth, picture2.scaleheight
end sub
6樓：人間四月
主要是座標的換算，將picturebox的座標與shape的座標一致，如此只要用滑鼠調節shape大小來調節picture的大小調整相片。
7樓：網海1書生
picture1.paintpicture picture1.picture, 0, 0, picture1.width, picture1.height
請問vb裡能不能在一張**（picturebox）之上用print在固定位置輸出一些字元？
8樓：網海1書生
可以的：
picture1.autoredraw = truepicture1.currentx = 150 '設定列印起始位置橫座標
picture1.currenty = 150 '設定列印起始位置縱座標
picture1.print "abc" '列印字元
不過建議最好選用label控制元件，比較方便
急！！vb怎麼建立陣列，怎樣在VB中新增控制元件陣列
dim a 100 as integer dim a n as integer 怎樣在vb中新增控制元件陣列 兩個問題一起回答。你先按正常方法新增一個command1,也按平時的方式，設定你需要的所有屬性，這時，再選定按鈕，複製，貼上，詢問你是否新增控制元件陣列，點是，於是，和你剛才的按鈕屬性完全一...
裡怎樣在螢幕裡顯示兩頁，word裡怎樣在一個螢幕裡顯示兩頁？
賴藥兒 這個是分頁顯示啊，檢視 閱讀版式 就好了，有點時候下拉框裡面可能不顯示，就點下那邊的一個向下的箭頭就好了，就排在第四個。 按住ctrl鍵同時滾動滑鼠滾輪，可以調節頁面大小 可以試下 請在選單欄選擇 檢視 閱讀版式 操作步驟 1 單擊檢視選單，在下拉選單選擇顯示比例命令，如圖所示 2 彈出顯示...
VB裡關於mid函式的使用，vb中的mid函式
首次提問，結果是 software 追問，結果是 e mid 字串,m,n 返回字串的第m位起共n位的子字串。vb中的mid函式 mid是visual basic和microsoft excel中的一個字串函式，作用是從一個字串中擷取出指定數量的字元。這個函式的3個引數各在vb和excel中互相等價...