المجموعة العلشرة فيجوال بيزيك

Admin 29/4/2007, 4:48 pm

مربعات الحوار الشائعةThe Common Dialog Box

أوامر النداء لصناديق الحوار:

common Dialog1.showopen إظهار صندوق فتح الملفات. وتأخذ الرقم 1

common Dialog1.showSave إظهار صندوق حفظ الملفات. وتأخذ الرقم 2

common Dialog1.showColor إظهار صندوق انتخاب الألوان. وتأخذ الرقم 3

common Dialog1.showFont إظهار صندوق انتخاب الخطوط. وتأخذ الرقم 4

common Dialog1.showPrinter إظهار صندوق إعدادات الطابعة. وتأخذ الرقم 5

ويتم إحضار الأداة المسماة Common Dialog من مستودع الأدوات الرئيسي (Ctrl + T):

مثال13: لدينا n والمطلوب كتابة الكود الخاص بالنافذة التالية:

[color=red]Dim n, data[color:1d8f=red:1d8f]

[color=red]Function dis(x1, x2, y1, y2)[color:1d8f=red:1d8f]

dis = Sqr((x1 - x2) ^ 2 + (y1 - y2) ^ 2)

End Function

[color=red]Sub nerx(x(), y(), n, y1, y2)[color:1d8f=red:1d8f]

y1 = e50

y2 = e50

For i = 1 To n

If y(i) < s Then x1 = y(i)

If y(i) < s And y(i) > 0 And y(i) > 0 Then y2 = y(i)

Next i

[color=red]End Sub[color:1d8f=red:1d8f]

[color=red]Private Sub bacolor_Click()[color:1d8f=red:1d8f]

cmd1.Action = 3

gxy.BackColorBkg = cmd1.color

[color=red]End Sub[color:1d8f=red:1d8f]

[color=red]Private Sub celcolor_Click()[color:1d8f=red:1d8f]

cmd1.Action = 3

gxy.BackColor = cmd1.color

[color=red]End Sub[color:1d8f=red:1d8f]

[color=red]Private Sub Command1_Click()[color:1d8f=red:1d8f]

n = Val(Text1.Text)

ReDim x(n), y(n)

For i = 1 To n

x(i) = Val(gxy.TextMatrix(i, 1))

y(i) = Val(gxy.TextMatrix(i, 2))

Next i

If Check1.Value = 1 Then

s = 1E+50: k = 0

If Option1.Value = True Then

For i = 1 To n

If y(i) < s And x(i) > 0 And y(i) > 0 Then

s = y(i): k = i

End If

Next i

Else

For i = 1 To n

If x(i) < s And x(i) > 0 And y(i) > 0 Then

s = x(i): k = i

End If

Next i

End If

Else

s = 1E+50: k = 0

If Option1.Value = True Then

For i = 1 To n

If y(i) < s Then

s = y(i): k = i

End If

Next i

Else

For i = 1 To n

If x(i) < s Then

s = x(i): k = i

End If

Next i

End If

End If

Text2.Text = k

[color=red]End Sub[color:1d8f=red:1d8f]

[color=red]Private Sub Form_Load()[color:1d8f=red:1d8f]

gxy.TextMatrix(0, 0) = "الرقم"

gxy.TextMatrix(0, 1) = "x"

gxy.TextMatrix(0, 2) = "y"

[color=red]End Sub[color:1d8f=red:1d8f]

[color=red]Private Sub gxy_Click()[color:1d8f=red:1d8f]

gxy.Text = ""

[color=red]End Sub[color:1d8f=red:1d8f]

[color=red]Private Sub gxy_KeyPress(KeyAscii As Integer)[color:1d8f=red:1d8f]

gxy.Text = gxy.Text + Chr(KeyAscii)

[color=red]End Sub[color:1d8f=red:1d8f]

[color=red]Private Sub open_Click()[color:1d8f=red:1d8f]

cmd1.Filter = "datafile|*.dat|all file|*.*"

cmd1.CancelError = False

On orror GoTo errorhandler

cmd1.Action = 1

a$ = cmd1.filename

If a$ = "" Then Exit Sub

Open a$ For Input As 1

Input #1, n

ReDim x(n), y(n)

gxy.Rows = n + 1

For i = 1 To n

Input #1, x(i), y(i)

Next i

Close #1

Text1.Text = n

For i = 1 To n

gxy.TextMatrix(i, 1) = x(i)

gxy.TextMatrix(i, 2) = y(i)

Next i

errorhandler:

[color=red]End Sub[color:1d8f=red:1d8f]

[color=red]Private Sub save_Click()[color:1d8f=red:1d8f]

cmd1.Filter = "datafile|*.dat|all file|*.*"

cmd1.CancelError = False

On orror GoTo errorhandler

cmd1.Action = 2

a$ = cmd1.filename

If a$ = "" Then Exit Sub

n = Val(Text1)

ReDim x(n), y(n)

For i = 1 To n

x(i) = Val(gxy.TextMatrix(i, 1))

y(i) = Val(gxy.TextMatrix(i, 2))

Next i

Open a$ For Output As 1

Write #1, n

For i = 1 To n

Write #1, i, x(i), y(i)

Next i

Close #1

errorhandler:

[color=red]End Sub[color:1d8f=red:1d8f]

[color=red]Private Sub Text1_Change()[color:1d8f=red:1d8f]

n = Val(Text1.Text)

gxy.Rows = n + 1

For i = 1 To n

gxy.TextMatrix(i, 0) = i

Next i

[color=red]End Sub[color:1d8f=red:1d8f]

بعض التوابع:

nomber1 mod nomber2

len(txt)

mid(txt,no1,no2)