匿名使用者
1級
2019-01-01 回答在你設計的程式目錄下先儲存一張圖片，格式只能為為bmp，dib，jpg，gif，wmf，emf，ico，cur，除此外若你選擇“所有檔案”的選項所新增的圖片是無效的，VB無法識別。
設定好picture屬性後在設定下borderstyle屬性為“0-none ”再加入一段API函式是無標題欄視窗可以單擊並拖動視窗內容移動。
程式碼如下：
Private Declare Function ReleaseCapture Lib “user32” （） As Long
Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” （ByVal hwnd As Long，
ByVal wMsg As Long， ByVal wParam As Long， lParam As Any） As Long
Private Const WM_NCLBUTTONDOWN = &&HA1
Private Const HTCAPTION = 2
‘以上API函式和常數的宣告可在VB自帶的“API瀏覽器”中找到
Private Sub Form_MouseDown（Button As Integer， Shift As Integer， X As Single， Y As Single）
’在窗體的MouseDown事件中新增以下程式碼
If Button = 1 Then
Call ReleaseCapture
Call SendMessage（hwnd， WM_NCLBUTTONDOWN， HTCAPTION， 0）
End If
End Sub
Private Sub Command1_Click（）
End ‘退出程式
End Sub
窗體被拖動時與普通窗體一樣，只有一個虛框隨滑鼠的移動而移動，當釋放滑鼠時窗體才移動到相應的位置。用到了兩個API函式。
匿名使用者
1級
2019-01-01 回答在窗體form的屬性中設定picture屬性為你想要的圖片就可以了
心如止丶淨
1級
2019-01-01 回答下面是一個按鈕隨窗體大小改變而改變大小的例子，窗體上需要一個按鈕： option explicit dim cmt， cml， cmw， cmh as single private sub form_load（） cmt = command1。top cml = command1。left cmw = command1。width cmh = command1。height ’儲存command1控制元件的top、left、width和height屬性 end sub private sub form_resize（） form1。scaleheight = 3000 ‘根據需要調整form的這2個屬性值，按鈕大小的改變幅度將不同 form1。scalewidth = 3000 command1。top = cmt command1。left = cml command1。width = cmw command1。height = cmh ’設定command1的位置和大小 end sub
