םורופהמ/תוצופנ תולאש - קיסיב לאו'זיו
ישאר דומע  

!תונושאר תועיפומ אשונ לכב תושדחה תולאשה *

תויללכ תולאש
?תחא הרושב םייוסמ סופיטמ םינתשמ לש הרדס רידגהל לוכי ינא םאה
?(טסקט תבית לשמל) והשלכ רקב יבגל (Undo) "לטב" בצמל םרוג ינא ךיא
?םיצבקה תא הגיצמ איהש ינפל ןנוכה תא ןנערל םיצבק לש גולאיד תביתל םרוג ינא ךיא
?תמייוסמ טסקט תביתל רובעל "םח שקמ"-ל םרוג ינא ךיא
?ילבולג היהי הז הנתשמש ילב ספוטל הנתשמ חולשל ךרד הנשי םאה
?Value י"ע וא Reference י"ע הרבעהל הנווכה המ
?ליגר שקמ ומכ גהנתהל TAB-ה שקמל םרוג ינא ךיא
?Enter ץחול ינא רשאכ פיב עימשהל אל טסקט תביתל םרוג ינא ךיא
?רחא סופיט לכבמ רתוי יטיא Variant סופיטב שומיש םאה
?MODELESS יספטל MODAL יספט ןיב לדבהה המ
?םייאמצע EXE יצבק תרצוי VB םאה





?םייאמצע EXE יצבק תרצוי VB םאה
(סינוקא ןד תאמ)
ףסונב לולכל תבייח VB תינכות לכ .םייאמצע אל םה ךא EXE יצבק תרצוי VB
.VB תסריג אוה x-ה - (VBRUNx00.dll) הציר ןמז יצבק םג
דומעה שארל הרזח

?MODELESS יספטל MODAL יספט ןיב לדבהה המ
(סינוקא ןד תאמ)
.יהשלכ הלועפ עוציב ינפל טלק שמתשמהמ םישרוד רשא םיספט םה MODAL יספט
םיספטל תואמגוד .םהמ םלעתהל ןתינ אלו םימלענ םהש דע סוקופה תא םיחקול הלא םיספט
.'וכו טלק תבית ,העדוה תבית :הלאכ
:ב שמתשה ,MODAL ספוט תגצהל
YourForm.Show 1

םינב-יספט) MDI יספט .שמתשמהמ ידיימ טלק םישרוד אל רשא םיספט םה MODELESS יספט
:ב שמתשה ,MODELESS ספוט תוארהל ידכב .MODELESS דימת םה בא ספוט לש
YourForm.Show
דומעה שארל הרזח

?רחא סופיט לכבמ רתוי יטיא Variant סופיטב שומיש םאה
(סינוקא ןד תאמ)
םוקמב Int-ב שומישהש הלגתה תוקידבב ,ןורכיז דאמ הברה ספות Variant-ש הדבועל טרפ
.!60%-ב ריהמ אוה Variant
.תוריהמב יוניש ןיאו טעמכ ,םירחא םיסופיטל רשקב
דומעה שארל הרזח

?Enter ץחול ינא רשאכ פיב עימשהל אל טסקט תביתל םרוג ינא ךיא
(סינוקא ןד תאמ)
הצרנ םימעפל ,לשמל .הצור התאש המ תא עצבי רשא דוק םיש "_KeyPress" עוריאב
:הציחל עוריאב אבה דוקה תא םושרנ ןכל .אבה הדשל Enter תציחלב רובעל

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If (KeyAscii = 13)   ' 13 = Enter
      KeyAscii = 0      ' 0 = NULL
      Text2.SetFocus
   End If
End Sub

ןתינ ינש רבד .פיבה תא ליעפהל Windows-ל םורגל אל ידכ שקמה דוק תא ספאנ ,םדוק
.האבה (רחא רבד לכ וא) טסקטה תביתל סוקופה תא
דומעה שארל הרזח

?ליגר שקמ ומכ גהנתהל TAB-ה שקמל םרוג ינא ךיא
(סינוקא ןד תאמ)
יוות םישל לכות ךכ קר .ליעפה ספוטבש םירקבה לכב False-ל TabStop תא עובקל בייח התא
.Tab תציחל רובע ךלשמ דוק חתפל םג וז ךרדב לכות .טסקט תבית ומכ םירקבב (9 ASCII דוק) Tab
דומעה שארל הרזח

?Value י"ע וא Reference י"ע הרבעהל הנווכה המ
(סינוקא ןד תאמ)
.(Reference) תבותכ יפלו (Value) ךרע יפל :םיכרד יתש י"ע תורודצורפו תויצקנופל םיחלשנ םירטמרפ
,רמולכ .היצקנופל ץוחמש וכרע תא תונשל לוכי אל אוה ,ךרע יפל היצקנופל חלשנ רטמרפשכ
ךא וכרע תא תונשל םיאשר ונא היצקנופה ךלהמב .קתוע ורובע תרצוי ,תארקנ איהשכ ,היצקנופה
אל היצקנופב ימינפ יוניש לכ ,ךכ .ירוקמה וכרע תא ול הריזחמ איה ,תמייתסמ היצקנופהשכ
.היצקנופל ץוחמ ינוציח יונישל םרוג
לכב ךרעה יונישל םורגי היצקנופה ךותב ורובע ךרע יוניש לכ ,תבותכה יפל היצקנופל חלשנ רטמרפשכ
.תינכותב וילא תוסחייתה שי וב םוקמ
.רטמרפה םש ינפל ByVal ןייוצ םא אלא תבותכ פ"ע החילש איה לדחמה תרירב ,VB-ב
דומעה שארל הרזח

?ילבולג היהי הז הנתשמש ילב ספוטל הנתשמ חולשל ךרד הנשי םאה
(סינוקא ןד תאמ)
.ריבעהל םיצור ונא ותוא ךרעה היהת ולש הלוכתה רשא יובח רקב והשזיא רוציל איה תינמחתה ךרדה
:הזכ רבד םושרנ רוקמה ספוטב .דעיה ספוטב בשי הז רקב
TargetForm.label1.caption="the value"
.ריבעהל םיצור ונא םתוא םינותנה תא רוגאתש תינסחמ יהשוזיא רוציל איה תיעוצקמ רתויה ךרדה
.רלבמסאב תינסחמ ומכ לעפת איה .תורודצורפ המכ י"ע התוא רוצינ
תינסחמ תורודצורפל תואמגוד דירוהל ידכב ןאכ ץחל
דומעה שארל הרזח

?תמייוסמ טסקט תביתל רובעל "םח שקמ"-ל םרוג ינא ךיא
(סינוקא ןד תאמ)
:ךכ "םח שקמ"-ה תא Caption ןייפאמב םיש - (Alt-M רמאנ) םח שקמ םע תיוות רוצ
&MyLable
תיוותה לש TabIndex-הש אדוו ."םחה שקמ"-ה םע ליעפהל הצור התא התוא טסקט תבית רוצ
.טסקטה תבית לש TabIndex-המ 1-ב לודג
הנממו תיוותל עיגי אה ,"םחה שקמ"-ה לע ץחלתשכ ,ןכל .סוקופ לבקל הלוכי הניא תיוותש עודי
.(היוצרה טסקטה תבית) אבה רקבל ץופקי אוה
דומעה שארל הרזח

?םיצבקה תא הגיצמ איהש ינפל ןנוכה תא ןנערל םיצבק לש גולאיד תביתל םרוג ינא ךיא
(סינוקא ןד תאמ)
לשמל סינכת םא ,ןכל .ןנוכה תלוכת תא תננערמ אל הביתה ,םיצבק גולאיד תבית רצוי התאשכ
ןנוכל הטילשה תא ריבעהל םעפ לכ לכסתמ דאמ .ולש םיצבקה תא לבקת אל ,A: ןנוכל שדח טקסיד
:הזה דוקב שמתשה ,בצמ לכב ןונערל .ןנערל ליבשב קר A: ןנוכל הרזחו C:

drive1.refresh
dir1.refresh
file1.refresh

.רחבתש רחא עוריא לכ וא רותפכ לע הציחל םע לעפוי הז דוק
דומעה שארל הרזח

?(טסקט תבית לשמל) והשלכ רקב יבגל (Undo) "לטב" בצמל םרוג ינא ךיא
(סינוקא ןד תאמ)
.אלש םירקב םנשי ךא ,םרובע לטב בצמל תגאוד תכרעמהש םירקב םנשי
תיצקנופב שמתשהל ךרטצנ ,ךכ םשל .טסקט תבית לע "לטב" תלועפ עצבמש רותפכ ונל שיש רמאנ
ונצחל וליאכ שממ תכרעמל לטב תלועפ תחילש המדמ וז היצקנופ .SendMessage תארקנה API-ה
םיעובק ינש דוע רידגנ ,היצקנופהמ ץוח .רוצינש לודומב רידגנ היצקנופה תא .Ctrl-Z םישקמה לע
:טושפ שומישל

Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
   (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam _
   As Integer, lParam As Any) As Long
Global Const WM_USER = &H400
Global Const EM_UNDO = WM_USER + 23

:אבה דוקה תא םושרנ "לטב"-ה רותפכב
Result=SendMessage(Text1.hWnd, EM_UNDO, 0, 0)

.עוציבב האיגש התייה ,-1 אוה הז ךרע םא .ךרע הריזחמ SendMessage היצקנופה
דומעה שארל הרזח

?תחא הרושב םייוסמ סופיטמ םינתשמ לש הרדס רידגהל לוכי ינא םאה
(סינוקא ןד תאמ)
.םינתשמ תורדגהב םימעפל םיעוט ןכא לקספ וא C תפשב הרקמב ורבע רשא VB יתנכתמ .יבויח
:הז גוסמ הרדגה
Dim iA, iB, iC as Integer
.Variant ויהי iB-ו iA דועב Integer היהי (iC) ישילשה קר ךא ,םינתשמה תשולש תא םנמוא רידגת
:וזכ איה הנוכנה הרדגהה
Dim iA%, iB%, iC%
דומעה שארל הרזח