سیاه شدن پنجره برنامه هنگام واکشی اطلاعات از بانک اطلاعاتی

[mostafa_tak2000]

باسلام خدمت دوستای عزیز
من مدتی هست که به مشکلی برخورد کردم که خیلی سعی کردم حلش کنم ولی نشد .
من یه نرم افزار دانشجویی داروخانه نوشتم . وقتی اطلاعاتی را از دیتابیس واکشی میکنیم وقتی این مدت بیشتر از حدود 3 الی 5 ثانیه طول میکشه صفحات پشت پنجره فعال نرم افزار سیاه میشن و وقتی واکشی تموم شد دوباره صفحه نرم افزارطبیعی میشه.
یه نکته اینکه در محیط ویژوال استودیو این اتفاق نمیفته ولی وقتی فایل exe نرم افزار را اجرا میکنم این مشکل پیش میاد .
ممنون میشم راهنماییم کنید که مشکل از کجاست ؟؟

[hamidrezax1]

دوست عزیز نحوه واکشی اطلاعات شما از دیتابیس و همچنن عدم استفاده از ابزار صحیح در واکشی باعث این مشکل میشه.در صورت امکان کدتون قرار بدین تا دوستان راهنمایتون کنن

[mostafa_tak2000]

باسلام .
من از کامپونت MRG.Controls.UI استفاده میکنم . متوجه شدم که تو هر صفحه از این کد استفاده میکنم اینطوری مشه . راستش من درواقع بااستغاده از این ابراز یک فرم لودینگ ساختم و تو فرمهام فراخوانی میکنمش کد تابعش زیر براتون مینویسم



mports System.Threading


Namespace Samed
Partial Public Class PleaseWait
Inherits Form


Private Shared _LoadingScreenThread As Thread
Private Shared _ls As PleaseWait
Private Shared _shown As Boolean = False
Private Shared _parent As Form


Public Sub New()
InitializeComponent()
End Sub


Public Shared Sub ShowLoadingScreen(ByVal parent As Form)
_parent = parent
If _LoadingScreenThread Is Nothing Then
_LoadingScreenThread = New Thread(New ThreadStart(AddressOf DoShowLoadingScreen))
_LoadingScreenThread.SetApartmentState(ApartmentSt ate.STA)
_LoadingScreenThread.IsBackground = True
_LoadingScreenThread.Start()
End If
End Sub


Public Shared Sub CloseLoadingScreen()
System.Threading.Thread.Sleep(250)
If _ls IsNot Nothing AndAlso _ls.InvokeRequired Then
_ls.Invoke(New MethodInvoker(AddressOf CloseLoadingScreen))
Else
If _shown Then
_shown = False
Application.ExitThread()
End If
If _LoadingScreenThread IsNot Nothing Then
_LoadingScreenThread.Interrupt()
End If


Try
_ls.Close()
_ls.Dispose()


Catch


End Try


_LoadingScreenThread = Nothing
End If
End Sub


Private Shared Sub DoShowLoadingScreen()
_ls = New PleaseWait()
_ls.LoadCircle.Active = True
_ls.ShowDialog()
End Sub


Private Sub PleaseWait_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Me.TopMost = True
Me.Activate()
End Sub


Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(Get Type(PleaseWait))
Me.LoadCircle = New MRG.Controls.UI.LoadingCircle()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginIni t()
Me.SuspendLayout()
'
'LoadCircle
'
Me.TopMost = True
Me.LoadCircle.Active = False
Me.LoadCircle.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.LoadCircle.Color = System.Drawing.Color.DarkGray
Me.LoadCircle.InnerCircleRadius = 5
Me.LoadCircle.Location = New System.Drawing.Point(233, 12)
Me.LoadCircle.Name = "LoadCircle"
Me.LoadCircle.NumberSpoke = 12
Me.LoadCircle.OuterCircleRadius = 11
Me.LoadCircle.RotationSpeed = 100
Me.LoadCircle.Size = New System.Drawing.Size(39, 40)
Me.LoadCircle.SpokeThickness = 2
Me.LoadCircle.StylePreset = MRG.Controls.UI.LoadingCircle.StylePresets.MacOSX
Me.LoadCircle.TabIndex = 0
Me.LoadCircle.Text = "LoadingCircle1"
Me.LoadCircle.Visible = False
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(-6, -4)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(297, 156)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchIma ge
Me.PictureBox1.TabIndex = 1
Me.PictureBox1.TabStop = False
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.Label1.Font = New System.Drawing.Font("B Yekan", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(-9, 115)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(297, 27)
Me.Label1.TabIndex = 2
Me.Label1.Text = "لطفاً کمی صبر کنید"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'PleaseWait
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(284, 142)
Me.ControlBox = False
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.LoadCircle)
Me.DoubleBuffered = True
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWind ow
Me.Name = "PleaseWait"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScree n
Me.TopMost = True
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit( )
Me.ResumeLayout(False)


End Sub


Friend WithEvents LoadCircle As MRG.Controls.UI.LoadingCircle
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label1 As Label
End Class
End Namespace