المجلس اليمني ... يمن واحد وآراء متعددة
::  قوانين المنتدى  |   طلب رقم التنشيط   |   تنشيط العضوية  |  استعادة كلمة المرور
العودة   المجلس اليمني :: العلمية والتقنية :: الكمبيـوتر والانتـرنت :: المواقع ولغات البرمجة والشبكات
|
 
أدوات الموضوع
قديم 03-08-2003, 07:44 PM   مشاركة رقم : 1
مشرف سابق

الصورة الرمزية سد مارب

 
تاريخ التسجيل: 29-11-2001
المشاركات: 17,499

افتراضي سلسله من اكواد VB التعليمية

[ALIGN=LEFT]اضافه نص متحرك
الادوات 2 TIMER AND LEBEL
' ضع هذا الكود في الفورم
Dim Llabel As Integer

Private Sub Form_Load()
Form1.ScaleMode = 3
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Llabel = Llabel + 10
Label1.Left = Llabel
If Llabel > 300 Then
Timer1.Interval = 0
Timer2.Interval = 100
End If
End Sub

Private Sub Timer2_Timer()
Llabel = Llabel - 10
Label1.Left = Llabel
If Llabel < 0 Then
Timer1.Interval = 100
Timer2.Interval = 0
End If
End Sub

********

لاضافه ملف صوتي من نوع MDI
Private Sub Form_Load()
MMControl1.Visible = False
MMControl1.DeviceType = "sequencer"
MMControl1.FileName = ("c:\FileName.mid")
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub
*****
حذف اي ملف
Private Sub Command1_Click()
Kill ("C:\FileName.fnm")
End Sub
****
اضافة ملف جديد
Private Sub Command1_Click()
open "c:\FileName.txt" for append as #1
Print #1,"Willkommen auf die Erde"
Close #1
End Sub
*****
معرفة الوقت والتاريخ
الادوات timer +lebel
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1 = Time & Date
End Sub
****
فتح صفحة انترنت
الادوات تو كوماند2 command
' ضع هذا الكود في الفورم
Private Sub Command1_Click()
****l "RUNDLL32.EXE URL.DLL,FileProtocolHandler http://al-yemen.org/vb/forumdisplay.php?forumid=42", vbNormalFocus
End Sub

Private Sub Command2_Click()
Dim X As Object
Set X = CreateObject("InternetExplorer.Application")
X.Navigate "www.al-yemen.com"
X.Visible = True
End Sub

الى اللقاء الى مزيدا من الاكواد التعليمية في لغه فيجوال بيسك
اكواد سهلة وبسيطة تعتبر الافضل للمبتدئين وهناك اكواد اكثر تقدما وبعضها يختص بالداتا وبرمجة الداتا سنتناولها فيما بعد
انتظروا المزيد…..
نرجو ان نتعاون جميعنا
شكرا لكم[/ALIGN]

  رد مع اقتباس
قديم 04-08-2003, 03:43 PM   مشاركة رقم : 2
قلم ماسي
 
لا توجد صورة

 
تاريخ التسجيل: 11-05-2003
المشاركات: 14,108

افتراضي

رااااااااااائع..

ننتظر المزيد..

  رد مع اقتباس
قديم 05-08-2003, 09:04 PM   مشاركة رقم : 3
مشرف سابق

الصورة الرمزية سد مارب

 
تاريخ التسجيل: 29-11-2001
المشاركات: 17,499

افتراضي

كود لجعل
نموذجك كامل الشاشة

[ALIGN=LEFT]Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Const HWND_TOP = 0
Const SWP_SHOWWINDOW = &H40 الشفرة
Dim cx As Long
Dim cy As Long
Dim RetVal As Long
' Determine if screen is already maximized.
If Me.WindowState = vbMaximized Then
' Set window to normal size
Me.WindowState = vbNormal
End If ' Get full screen width.
cx = GetSystemMetrics(SM_CXSCREEN) ' Get full screen height.
cy = GetSystemMetrics(SM_CYSCREEN)
' Call API to set new size of window.
RetVal = SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, cx, cy, SWP_SHOWWINDOW) [/ALIGN]

  رد مع اقتباس
قديم 14-08-2003, 06:53 PM   مشاركة رقم : 4
مشرف سابق

الصورة الرمزية سد مارب

 
تاريخ التسجيل: 29-11-2001
المشاركات: 17,499

افتراضي

كود لاغلاق الفورم بشكل بطيء لاعلى من ضمن الديكورات الاضافية على شكل الفورم....
الادوات:- تو كوماندز (2) وبقية الموثرات على الفورم من خلال الخصائص كم تشاء
للمبتدئين

Private Sub Command1_Click()
msg = MsgBox("هل ترغب بالخروج", vbOKCancel, "خروج")
If msg = vbOK Then
For I = 1 To 9000
For J = 1 To 4000
Next
Form1.Height = Form1.Height - 1
Next I
Unload Me
End If
End Sub

Private Sub Form_Load()
Form1.WindowState = 0
Form1.Width = 12000
Form1.Height = 9000
End Sub
'الصق الكود هذا بنافذة الكود والادوات المطلوبة كوماند للخروج ....

الى اللقاء...

  رد مع اقتباس
قديم 15-08-2003, 08:56 AM   مشاركة رقم : 5
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 14-08-2003
المشاركات: 33

افتراضي

بصراحه جهد تشكر عليه

  رد مع اقتباس
قديم 30-03-2004, 04:51 AM   مشاركة رقم : 6
عضو متميّز
 
لا توجد صورة

 
تاريخ التسجيل: 15-01-2004
المشاركات: 1,526

افتراضي

بصراحه جهد تشكر عليه

  رد مع اقتباس
قديم 22-04-2004, 05:27 AM   مشاركة رقم : 7
عضو متميّز
 
لا توجد صورة

 
تاريخ التسجيل: 15-01-2004
المشاركات: 1,526

افتراضي

هذة بس وين الباقي

































































































































































































ما في اي باقي

  رد مع اقتباس
قديم 22-04-2004, 12:50 PM   مشاركة رقم : 8
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 09-07-2003
المشاركات: 128

افتراضي

مشكور اخي ومنتظرين المزيد

  رد مع اقتباس
إضافة رد

أدوات الموضوع

الانتقال السريع :::

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.