یه سری آموزش های فوق العاده جالب برای دوستان عزیز

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

نمایش فولدرها به صورت درختی
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
[/TD]
[TD="class: code"]Public Sub eRoot(rootpath As String, fldrs As Boolean On Error Resume NextDim EX, ARGU, path, X
If fldrs = True Then
EX = "explorer.exe"
ARGU = " /e,/root, "
path = rootpath$
X = Shell(EX & ARGU & path, 1)
ElseIf fldrs = False Then
EX = "explorer.exe"
ARGU = " n/e,/,root, "
path = rootpath$
X = Shell(EX & ARGU & path, 1)
End IF
End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

شاید تا حالا دیده باشید که وقتی داریم با jetaudio فیلم نگاه می کنیم اشاره گر بعد از چند ثانیه غیب میشه ! خیلی جالبه نه ؟



* قبل از این کار دو تا دگمه با نام Command1 و Command2 به برنامه خودتون اظافه کنید.


[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
[/TD]
[TD="class: code"]Declare Function ShowCursor& Lib "user32" _
(ByVal bShow As Long)


Private Sub Command1_Click()

ShowCursor (bShow = True)
End Sub


Private Sub Command2_Click()

ShowCursor (bShow = False)
End

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

اینو میزارم چون در موردش کم دیدم و شاید بعضی های بلد نباشن و بخوان یاد بگیرن :
​

گزارش گیری از پایگاه داده در ویژوال بیسیک​

[FONT=Tahoma, Arial, Helvetica, sans-serif]»[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]همانطور که شما عزیزان می دانید گزارشگیری می تواند یکی از ویژگیهایی باشد که یک برنامه پایگاه داده را کاملتر و قابل استفاده تر می کند و کاربران به استفاده از این نوع برنامه ها رغبت بیشتری دارند . یعنی به طور کلی امکان گزارشگیری در یک برنامه از مهمترین ویژگیهای آن است . از گزارشگیری بیشتر در چاپ استفاده می شود و کاربر می تواند قبل از چاپ اطلاعاتی را مشاهده و ارزیابی کند . در این درس من روش ساخت گزارش معمولی با استفاده از امکانات آماده خود ویژوال بیسیک را توضیح خواهم داد ، ولی اکتیوایکس های پیشرفته تری مانند کریستال ریپورت ( Crystal Report ) که توانایی ساخت گزارشهای جالبتر و بهتری را دارند نیز وجود دارند که خود شما باید پیگیر آنها باشید .
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]»[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif] قبل از شروع ساخت گزارش شما باید چند نکته در این مورد یاد بگیرید . در ایجاد یک گزارش معمولی ویژوال بیسیک از از رابط OLE DB برای برقراری ارتباط با پایگاه داده مورد نظر استفاده می کند . برای شروع شما VB خود را باز کرده و یک پروژه استاندارد ایجاد کنید . سپس برای ایجاد رابط از منوی Project گزینه Add Data Environment را انتخاب کنید . با زدن این گزینه فرمی به صورت زیر ایجاد می شود :[/FONT]

[FONT=Tahoma, Arial, Helvetica, sans-serif] [/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]»[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif] همانطور که در تصویر می بینید این فرم از یک لیست درختی تشکیل شده که سر شاخه آن همان نام رابط است . شاخه Connections لیست ارتباطها با پایگاه داده ها را مشخص می کند . مثال Connection1 با یک پایگاه داده مرتبط است و حال این که Connection بعدی که ایجاد میکنید می تواند با یک پایگاه داده دیگر ارتباط برقرار کند . شاخه Commands هم جدول یا جدول های انتخابی از هر پایگاه داده را مشخص میکند که بیشترین کاربرد را دارد . حال به توضیح هر یک از این دو شاخه می پردازیم :
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]شاخه [/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]Connections : همانطور که گفته شد این ابزار یا شی ء پایگاه داده ای را که قرار است از آن گزارش تهیه شود مشخص می کند . برای مثال ما مراحل انتخاب یک پایگاه داده مراحل زیر را دنبال می کنیم :
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]1 )[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]روی Connection1 راست کلیک کنید تا منویی باز شود . از این منو گزینه Properties را انتخاب کنید تا دیالوگ Data Link Properties نمایش داده شود . برگه اول این دیالوگ دارای یک لیست است.
[/FONT]

[FONT=Tahoma, Arial, Helvetica, sans-serif]2 )[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif] شما از این لیست گزینه Microsoft Jet 4.0 OLE DB Provider را انتخاب کرده و گزینه Next را بزنید تا برگه دوم این دیالوگ نمایش داده شود .[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]3 )[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif] در این مرحله پایگاه داده مورد نظر خود را انتخاب کنید . برای آگاهی از این که آیا اتصال به درستی انجام گرفته می توانید از دکمه Test Connection استفاده کنید . سپس دکمه OKرا برای پایان این مرحله انجام دهید .
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]با انجام این مراحل ما توسط [/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]Connection1 به پایگاه داده مورد نظر خود متصل شدیم . حال زمان استفاده از شی ء Command است .برای ایجاد یک Command برای Connection1 روی Connection1 کلیک راست کرده و گزینه Add Command را بزنید . با این کار Command1 به لیست Command ها اضافه خواهد شد .
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]شاخه [/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]Commands : همانطور که گفته شد شی Command برای مدیریت جدول یا فیلد ها استفاده می شود . برای تنظیم این شی ء مراحل زیر را دنبال می کنیم :
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]1 )[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif] روی Command1 کلیک راست کرده و گزینه Properties را انتخاب کنید تا دیالوگ زیر نمایش داده شود :[/FONT]

[FONT=Tahoma, Arial, Helvetica, sans-serif] [/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]در این دیالوگ اصلی ترین قسمت برگه[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]General است که ما باید آن را تکمیل کنیم .
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]2 )[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif] در برگه General از کشوی DataBase Objects گزینه Table را انتخاب کنید تا در کشوی Object Name نام جدول های موجود در پایگاه داده قرار گیرد و شما جدول مورد نظر خود را انتخاب کنید . حتی شما می توانید با استفاده از دستورات SQL که در قسمت SQL Statement می نویسید جدول مورد نظر خود را انتخاب نمایید .
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]3 )[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif] سپس دکمه Apply و دکمه Ok را برای تکمیل این قسمت فشار دهید . برگه های دیگر این دیالوگ برای ساخت گزارشهای پیشرفته تر کاربرد دارند که ما از تکمیل این قسمت ها را به خود شما عزیزان واگزار می کنم .
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]»[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif] در این قسمت تنظیمات مربوط به رابط پایگاه داده به پایان رسید . حال برای ایجاد صفحه طراحی گزارش از منوی Project گزینه Add Data Report را انتخاب کنید . یک صفحه طراحی گزارش با جعبه ابزار مخصوص با نام Data Reprot1 در اختیار شما قرار داده می شود . در این قسمت دو روش برای طراحی گزارش وجود دارد :
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]روش اول این است که خود شما برای هر کدام از فیلدهایی که می خواهید در گزارش قید شوند یک [/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]Rpt Text Box و Rpt Lable قرار دهید و خواص هر کدام از آنها را به طور جداگانه تنظیم کنید .
[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]روش دوم این است که فرم رابط یا [/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif]Data Environment و DataReport1[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif] را به صورت زیر قرار داده و با کشیدن و انداخت هر کدام از فیلد ها و یا کل جدول از فرم رابط بر روی فرم گزارش ، گزارش خود را تنظیم کنید .[/FONT]

[FONT=Tahoma, Arial, Helvetica, sans-serif]مهم ترین قسمت[/FONT][FONT=Tahoma, Arial, Helvetica, sans-serif] : مهمترین قسمت این بخش مرتبط کردن فرم گزارش با فرم رابط است . برای این کار شما باید خواص DataReport1یا همان فرم گزارش خود را به صورت زیر تنظیم کنید :
[/FONT]

[FONT=Tahoma, Arial, Helvetica, sans-serif]1 )[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif] خاصیت DataSource را برابر با DataEnvironment1 قرار دهید .[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]
[/FONT]

[FONT=Tahoma, Arial, Helvetica, sans-serif]2 )[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif] خاصیت DataMember را برابر با Command1 قرار دهید .[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]
[/FONT]

حال گزارش شما برای نمایش آماده است . برای این کار شما باید در
​

Form1خودیکCommandButtonقرار داده و کد زیر را در آن بنویسید :
[TABLE]
[TR]
[TD="class: gutter"]1
[/TD]
[TD="class: code"]

[/TD]
[/TR]
[/TABLE]


​

[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
[/TD]
[TD="class: code"]()PrivateSub Command1_Click
DataReport1.Show
End Sub

[/TD]
[/TR]
[/TABLE]


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

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

ی خواهید ساختن یک برنامه مالتی مدیا رو یاد بگیرید ؟؟؟

اگه می خواهید ، با من همراه بشید

این کارا رو که می گم دنبال کنید :

1)ازمنوی Project گزینه Components را انتخاب کنید .

2)از لیست باز شده گزینه های زیر را تیک بزنید :

Microsoft Common Dialog control 6.0
Microsoft Windows Common Controls 5.0 (SP2)
Windows Media Player




به برنامه خود کنترلهای زیر را اضافه کنید مواد لازم )

Command1
Command2
Label1
Timer1
Slider1
CommonDialog1
MediaPlayer1​

</H1>کد زیر را وارد کنید :
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
[/TD]
[TD="class: code"]Option Explicit
Dim File_name As String
Dim pp As Boolean

Private Sub Command1_Click()
Call Form_Load
End Sub

Private Sub Command2_Click()
On Error Resume Next
If pp = False Then
pp = True: Command2.Caption = "Play"
MediaPlayer1.Pause
Else
pp = False: Command2.Caption = "Pause"
MediaPlayer1.Play
End If
End Sub

Private Sub Form_Initialize()
MsgBox "http://vbh.blogfa.com", vbInformation, "}{ /\ S /\ /\/"
Me.Move 4000, 4000, 5000, 1100
Command1.Move 10, 10, 700, 330
Command2.Move 10, 340, 700, 330
Slider1.Move 800, 110, 3000, 1000
Label1.Move 3900, 240, 1500, 1000
Command1.Caption = "Open"
Command2.Caption = "Pause"

End Sub

Private Sub Form_Load()
On Error Resume Next
pp = False
Timer1.Interval = 100
Me.BorderStyle = 3
CommonDialog1.Filter = "mp3 File|*.mp3|All File|*.*"
CommonDialog1.ShowOpen
File_name = CommonDialog1.FileName
Me.Caption = File_name
MediaPlayer1.FileName = File_name
MediaPlayer1.Play
Slider1.Max = MediaPlayer1.Duration
End Sub

Private Sub Slider1_Scroll()
MediaPlayer1.CurrentPosition = Slider1.Value
End Sub

Private Sub Timer1_Timer()
Slider1.Value = MediaPlayer1.CurrentPosition
Label1.Caption = Int(MediaPlayer1.CurrentPosition) & " Seconds"
End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

شاید موقع اجرا از این کد خوشتون بیاد .

اول یک Timer ایجاد کنید بعدش کد رو وارد کنید .
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
[/TD]
[TD="class: code"]Private Declare Function SetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Fire() As Byte

Private Sub Form_Load()
Timer1.Interval = 10
Me.AutoRedraw = True
ReDim Fire(0 To 100, 0 To 100)
For x = 0 To 100
For y = 0 To 100
Fire(x, y) = 0
Next y
Next x

End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Dim x As Integer
Dim y As Integer
Dim Color As Integer
Dim table As Byte
For y = 100 To 0 Step -1
For x = 0 To 100
Randomize
Fire(x, y) = Fire(x, y) - Int(Rnd * 3)
table = Int(Rnd * 3)
Fire(x, y - table) = Fire(x, y)
Color = (Int(Fire(x, y) * 3))
SetPixel Me.hDC, x + (Rnd * 2), y, RGB(Color + Color, Color, Color / 2)
Next x
Next y

For x = 0 To 100
For y = 95 To 100
Fire(x, y) = 110
Next y
Next x
Me.Refresh


End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

کار با Agent های ویندوز :
از منوی Project گزینه Componentرا انتخاب کنید.
از لیست باز شدهMicrosoft Agent Control2.0 را تيک بزنید.
حال یک Agent و یک ListBoxرا به فرم اضافه کنید.
اگه زحمتی نیست اینا رو هم اضافه کنید.
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
[/TD]
[TD="class: code"]Dim Merlin As IAgentCtlCharacterEx
Dim nName As String

Private Sub Form_Load()
With List1
.AddItem "Surprised"
.AddItem "Greet"
.AddItem "Explain"
.AddItem "Announce"
.AddItem "Pleased"
.AddItem "DoMagic1"
.AddItem "DoMagic2"
.AddItem "Suggest"
.AddItem "Read"
.AddItem "Write"
.AddItem "Wave"
.AddItem "Acknowledge"
.AddItem "Alert"
.AddItem "Blink"
.AddItem "Confused"
.AddItem "DontRecognize"
.AddItem "Sad"
.AddItem "Think"
.AddItem "Uncertain"
.AddItem "Search"
.AddItem "Process"
.AddItem "MoveLeft"
.AddItem "MoveDown"
.AddItem "MoveUp"
.AddItem "MoveRight"
.AddItem "LookUp"
.AddItem "LookDown"
.AddItem "LookRight"
.AddItem "LookLeft"
.AddItem "Idle1_1"
.AddItem "Idle1_2"
.AddItem "Idle2_1"
.AddItem "Idle2_2"
.AddItem "Idle3_1"
.AddItem "Idle3_2"
.AddItem "Decline"
.AddItem "Congratulate"
.AddItem "GetAttention"
.AddItem "GestureUp"
.AddItem "GestureDown"
.AddItem "GestureLeft"
.AddItem "GestureRight"
End With
nName = "merlin"
Agent1.Characters.Load nName
Set Merlin = Agent1.Characters(nName)
Merlin.Show
End Sub

Private Sub List1_Click()
Merlin.Play List1.Text
Merlin.Play "Restpose"
End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

این دیگه آخرشه ، می تونین با کمک این یه امنیت قوی درست کنین :

برای بدست آوردن مدت زمان روشن بودن کامپیوتر خود مراحل زیر را دنبال کنید .
1) در فرم خود يك Timer و يك Textbox ایجاد کنید .
2) کد زیر را به برنامه خود اضافه کنید .
[TABLE]
[TR]
[TD="class: gutter"]1
[/TD]
[TD="class: code"]

[/TD]
[/TR]
[/TABLE]


​

[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
[/TD]
[TD="class: code"]Private Declare Function GetTickCount& Lib "kernel32" ()
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim m As Integer
Dim s As Integer
s = Left(GetTickCount, 4)
m = Int(s / 60)
Text1 = Format(m, "000") & " : " & Format(s - (m * 60), "00")
End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

تابع AlphaBlend
امروز شما را با یک تابع آشنا میکنم که میتواند تصاویرتان را به زیبایی محو کند یا نمایش دهد.
مراحل زیر را انجام دهید
1)یک Picturebox و Scrollbar با نام قبلی Picture1 و HScroll1 به فرم خوداضافه کنید.
2)به Picture1 یک تصویر بدهید.
3)حال کد زیر را پروژه خود اضافه کنید:
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
[/TD]
[TD="class: code"]Private Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, ByVal heightSrc As Long, ByVal dreamAKA As Long) As Boolean
Dim nBlend As Long

Private Sub Form_Load()

Me.AutoRedraw = True
HScroll1.Max = 255
With Picture1
.ScaleMode = 3
.Visible = False
.AutoRedraw = True
.AutoSize = True
End With
End Sub

Private Sub HScroll1_Scroll()
nBlend = vbBlue - CLng(HScroll1.Value) * (vbYellow + 1)
Me.Cls
AlphaBlend Me.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, nBlend
End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

کار با Inet و Web Browser خیلی جالب هست :

اگرمیخواهیداین دو کنترل به کنترلهای دیگر بپیوندند.
از منوی project گزینه Components را کلیک کنید.
از بین لیست کنترلها دو گزینه microsoft internet transfer control 6.0
و microsoft internet controls را تیک بزنید و OK کنید.

کاراصلی WebBrowser نمایش صفحات وب و معمول ترین کار کنترل Inet بدست آوردن سورس یک آدرس است.

کنترلها: Command1,Text1,Text2,WebBrowser1,Inet1

[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
[/TD]
[TD="class: code"]Private Sub Command1_Click()
If Text1.Text <> "" Then
WebBrowser1.Navigate Text1.Text
Text2 = Inet1.OpenURL(Text1.Text)
End If
End Sub

Private Sub Form_Load()
Me.Width = 5325
Me.Height = 5400
Me.Caption = "Mini browser"
With WebBrowser1
.Width = 4575
.Height = 2375
.Top = 600
.Left = 240
End With
With Text1
.Top = 240
.Left = 1680
.Height = 285
.Width = 3135
.Text = "http://www.blogfa.com"
End With
With Text2
.Width = 4575
.Height = 2375
.Top = 3000
.Left = 240
.Text = ""
End With
With Command1
.Top = 120
.Left = 240
.Height = 375
.Width = 1215
.Caption = "Navigate"
.Default = True
End With
End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

اگر میخواهید کد بالا درست عمل کندباید خاصیت MultiLine از Text2 را
True کنید.
اگر هنگام اجرای کد بالا Offline هستید میتوانید در Text1 آدرس یک
فایل htmlیاhtm راکه درکامپیوترخود وجود دارد به صورت زیربنویسید.
file://C:\WINDOWS\Help\Tours\htmlTour\start_icons.htm