vb點擊運行無反應，頁面一片空白，也不顯示窗體？

菜單中 工程——屬性——啟動對象 看是否選中為你要的窗體 其次檢查啟動窗體的visible屬性是否為true 最后確保 代碼中沒有卸載窗體的代碼 最后按f5 運行 看看效果

讓客戶滿意是我們工作的目標，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴，公司提供的服務項目有：域名注冊、雅安服務器托管、營銷軟件、網(wǎng)站建設(shè)、紅山網(wǎng)站維護、網(wǎng)站推廣。

vb點虐 做的無窗口應用程序如何實現(xiàn)移動

'我試過可以,你試試

Imports System.Drawing

Imports System.Windows.Forms

Public Class Form1

'******************************************

Private oOriginalRegion As Region = Nothing

' 用于窗體移動

Private bFormDragging As Boolean = False

Private oPointClicked As Point

'******************************************

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

Me.bFormDragging = True

Me.oPointClicked = New Point(e.X, e.Y)

End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

If Me.bFormDragging Then

Dim oMoveToPoint As Point

' 以當前鼠標位置為基礎(chǔ)，找出目標位置

oMoveToPoint = Me.PointToScreen(New Point(e.X, e.Y))

' 根據(jù)開始位置作出調(diào)整

oMoveToPoint.Offset(Me.oPointClicked.X * -1, _

(Me.oPointClicked.Y + _

SystemInformation.CaptionHeight + _

SystemInformation.BorderSize.Height) * -1)

' 移動窗體

Me.Location = oMoveToPoint

End If

End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

Me.bFormDragging = False

End Sub

End Class

VB點虐 程序不能生成窗口

錯誤提示是“索引超出了數(shù)組界限。”是Message="創(chuàng)建窗體時出錯。有關(guān)詳細信息，請參閱 Exception.InnerException。錯誤為: 索引超出了數(shù)組界限。"設(shè)置的，不能代表真實的問題，實際上程序能運行但可能程序要用到內(nèi)存硬盤、CPU序號等因素，不把整個程序拿出來很難解答