افضل طريقة للحصول علي شكل الاكس بي

ما اقدمة هو الطريقة المثلي لجعل البرنامج باخذ شكل الاكس بي

الفكرة من ابتكاري

واستطعت ان اطبقها عندما قراءت

/in...&hl=mrx_ta7ady

وبة الاستاذ mrx_ta7ady قدم الكود الذي اعتمدت علية

وايضا

http://www.vb4arab.com/vb/showthread.php?t=8435

حيث دار حوار بين الاستاذ احمد فراس والاستاذ المزمجر بخصوص شاشة الترحيب التي لا تظهر غير مرة واحدة

حيث استغليت طريقة شاشة الترحيب لتكون هي التي تدفع بملف السكن الي مجلد السستم ليبداء عمل ملف السكن مع ظهور الشاشة الثانية لتظهر بشكل الاكس بي ومن ثم البرنامج بكل نوافذة

يجب الحصول علي الاداة XPStyleBox2.ocx وهي اداة مجانية من اعمال الاستاذ MOH VB ويمكن الحصول عليها من

http://www.vb4arab.com/vb/showthread.php?t=25549

خطوات العمل

اولا نحول الاداة XPStyleBox2.ocx الي ملف Resource

ثانيا نصنع برنامج بة شاشتان

اولي نضع بها 1 تيمر و الاداة ProgressBar ونحصل عليها من

Components\Microsoft windows common controls 6.0

حيث نضبط التيمر علي 50 من interval

ثم نضع الاكواد التالية في الفورم الاول

Private Function IsExist(ByVal Path As String) As Boolean
	IsExist = CBool(Len(Dir(Path, 0 Or 1 Or 2 Or 4 Or 32)))
End Function
Private Sub Form_Load()
Dim MYByte() As Byte
	If Not IsExist(Environ("WinDir") & "\System32\XPStyleBox2.ocx") Then
		MYByte = LoadResData(101, "CUSTOM")
		Open Environ("WinDir") & "\System32\XPStyleBox2.ocx" For Binary As #1
		Put #1, , MYByte
		Close #1

		 End If
		End Sub
Private Sub Timer1_Timer()
If ProgressBar1.Value >= 100 Then
	Form2.Show
	Unload Me
	   Screen.MousePointer = vbDefault
Else
  ProgressBar1.Value = ProgressBar1.Value + 2
End If
End Sub

وفي الفورم الثاني نستخدم الاداة XPStyleBox2.ocx للحصول علي شكل الاكس بي

والدليل علي ما اقدمة يرجي تجربة الملف التنفيذي اولا XP.EXE وهو بالمرفقات

ولكي نجعل الشاشة الافتتاحية لاتظهر مرة اخري

نعدل علي الكود الذي في ال Form_Load بحيث يصبح كالتالي

Private Sub Form_Load()
Dim MYByte() As Byte
	If Not IsExist(Environ("WinDir") & "\System32\XPStyleBox2.ocx") Then
		MYByte = LoadResData(101, "CUSTOM")
		Open Environ("WinDir") & "\System32\XPStyleBox2.ocx" For Binary As #1
		Put #1, , MYByte
		Close #1
Exit Sub
	Else

	   Unload Me
			Form2.Show
	End If
				 End Sub

انظر المشاركة التالية ومرفقها

ارجو ان اكون قدمت شيا مفيدا

ابن بسطا :lol:

XP.rar