⑴ 能用vb設計編寫一個類似於Window畫圖板的程序,可通過滑鼠繪制各種圖形,設有工具欄可以選擇設置
VB6 畫圖源碼 可實現功能 線 圓 矩形 圖形移動 顏色 線寬更改 大小更改
⑵ 在那裡可以找到VB圖片製作工具
PocoMaker
想做自己的個性電子雜志?用它,5分鍾就搞定一本!
什麼是PocoMaker?
PocoMaker(魅客)是一款完全免費的電子雜志製作工具。他可以製作電子相冊、電子雜志、電子讀物等多種個性電子讀物。
運用他,花上5分鍾,你可以將自己的精美相片整理成冊,加上炫酷的動態效果,展現你獨一的美麗,表達你獨特的思想;
更可以將個人雜志發布至MyPOCO個人空間主頁,讓更多朋友認識了解特別的你,分享你的喜怒哀樂。
⑶ 如何用vb製作圖片編輯器,急!!
Private Sub Command1_Click()
Image1.Width = Image1.Width * 2
Image1.Height = Image1.Height * 2
End Sub
Private Sub Command2_Click()
Image1.Width = Image1.Width / 2
Image1.Height = Image1.Height / 2
End Sub
⑷ 用VB編寫: 《圖片瀏覽軟體》
我簡單給你個放大縮小的示例吧。
Private Sub mnuZoomIn_Click() 『縮小0.8倍
On Error Resume Next
x1 = Image1.Width * 0.8
y1 = Image1.Height * 0.8
Image1.Move (Picture1.Width - x1) / 2, (Picture1.Height - y1) / 2, x1, y1
End Sub
Private Sub mnuZoomOut_Click() 』放大1.2倍
On Error Resume Next
x1 = Image1.Width * 1.2
y1 = Image1.Height * 1.2
Image1.Move (Picture1.Width - x1) / 2, (Picture1.Height - y1) / 2, x1, y1
End Sub
滾動條的我忘了,原來的程序源碼都丟了,其實很簡單,只需要針對滾動條的數值,把圖像文件移動到合適位置就可以。多查查函數和控制項手冊就好,因為你需要的功能都很簡單。
⑸ 用VB編寫一個簡單的圖像處理程序
Private Sub Command1_Click()
Dim a As Long
Dim i, j As Integer
Form1.ScaleMode = 3
For i = 1 To 100
For j = 1 To 100
a = Picture1.Point(i, j)
Form1.PSet (i, j), a
Next j
Next i
End Sub
Private Sub Command2_Click()
Dim a As Long
Dim i, j As Integer
Form1.ScaleMode = 3
For i = 1 To 100
For j = 1 To 100
a = Picture1.Point(i, j)
Form1.PSet (100 - i, j), a
Next j
Next i
End Sub
Private Sub Command3_Click()
Dim a As Long
Dim i, j As Integer
Form1.ScaleMode = 3
For i = 1 To 100
For j = 1 To 100
a = Picture1.Point(i, j)
Form1.PSet (i, 100 - j), a
Next j
Next i
End Sub
Private Sub Form_Load()
Form1.Scale (0, 0)-(100, 100)
Picture1.Scale (0, 0)-(100, 100)
End Sub
!有圖像的縮小放大上下翻轉,顏色處理沒有 不好意思!
⑹ VB編寫圖片隨機滾動/停的軟體
Private Sub Form_Load()
Picture1.Cls
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer() '0.1秒隨機變換圖片
Dim Pfilename As String
Pfilename = App.Path & "\" & CStr(Int(Rnd * 40) + 1) & ".JPG"'圖片路徑及名稱
Picture1.Picture = LoadPicture(Pfilename)
End Sub
Private Sub Command1_Click() '停止按鈕
Timer1.Enable = False
End Sub
⑺ 求助:VB製作照片管理軟體
2014-0715 程序已經改好,所有代碼重新寫,並且加了注釋
並且發回到你的郵箱!請查收!
1、支持打開文件夾方式批量添加圖片,用了一個模塊 'VB 不支持PNG圖片沒辦法
2、支持模糊查詢
3、每次錄入標題和描述都要點一下「保存」按鈕才可以
4、文件每次保存都會自動到根目錄的picture文件夾內(但是調用時沒調用這個目錄,不知道你是不是需要調用,如果是也很簡單)
5、去除list1控制項使用file1控制項。
6、沒有對圖片的寬、高度加以限制,你可以自己限制圖片的尺寸和picture1一樣大小,但是圖片容易失真,也可以自適應(不會的話我給你改,由於時間限制我暫時沒改,下午事太多了)
7、txt文件的讀寫,字元串的查找功能
總之花了半小時的時間,滿足你所需的功能。有啥問題在找我,記得知道給我分哦。
BY h8081234 0715
郵箱:[email protected]
⑻ 怎麼用VB製作圖片編輯器
我發給你,注意查收