當前位置:首頁 » 圖片軟體 » vb編寫圖片編輯軟體
擴展閱讀
名人頭像男人霸氣圖片 2025-05-21 00:03:44
圖片會員在哪裡 2025-05-21 00:00:45
我是單身卡通圖片 2025-05-20 23:59:06

vb編寫圖片編輯軟體

發布時間: 2022-06-07 02:53:03

⑴ 能用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製作圖片編輯器

我發給你,注意查收