منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2 3 4

أريد تعديل هذا الكود بحيث يظل اسم ال FUNCTION متغير

PHP كود :

Private Sub FUNC1()
AA = 111
End Sub

Private Sub FUNC2()
AA = 222
End Sub

Private Sub Command1_Click()
 NNN = Val(Text1.Text)
      Print "NNN  "; NNN
      If NNN <= 10 Then FUNCC = "FUNC1" Else: FUNCC = "FUNC2"
      FUNCC
      Rem"المفروض بالجملة السابقة يتوجه الى FUNC1  أو الى FUNC2  حسب قيمة المتغير FUNCC"
      Print AA
End Sub 

ولكم ألف شكر

PHP كود :

Option Explicit

Private Sub Form_Load()
Call x("")
Call x("VB4ARB")
End Sub


Public Sub x(ByVal s As String)
If s = "" Then
Me.Caption = "NONE"
Else
MsgBox s
End If
End Sub 

أهلا أخي الكريم , إستخدام أداة السكربت لتنفيذ ماتريده , الطريقة في المرفقات .

استخدم randomize

إقتباس :استخدم randomize

وكيف أستخدمها؟
ليتك تعدل الكود باستخدامها
ولكم ألف شكر

إقتباس :أهلا أخي الكريم , إستخدام أداة السكربت لتنفيذ ماتريده , الطريقة في المرفقات .

أستاااااااذ . فعلآ هذا هو الحل
بارك الله فيك
وهل لى أن أطلب أن تدلنى على رابط يشرح هذه الأداة شرحآ يوضح كل استخداماتها
فيبدو أنها أداة مفيدة لا أعرفها
ولكم ألف شكر

أهلا أخي الكريم ، رابط من مايكروسوفت :
https://support.microsoft.com/en-us/kb/184740

شكرآ لك
ولكن هذا الرابط لايشرح شيئآ
كل كلامه بالانجليزية ، ولما ترجمته لم أفهم من الترجمة شيئآ

حسب مافهمت من كودك السابق لماذا لا تسخدم

PHP كود :

Select Case 

مثال

PHP كود :

Private Sub Command2_Click()
    MMM = Val(Text2.Text)
    Call FUNC3
End Sub

Public Sub FUNC3()
    Select Case MMM
    Case Is <= 10
        Print "case1"
    Case Is <= 20
        Print "case2"
    Case Is <= 30
        Print "case3"
    Case Is < 30
        Print "case4"
    End Select
End Sub 

السلام عليكم

اخي الكريم بامكانك استخدام ٍselect case كما نصحك الاخ administrator او استخدام function يرجع بالقيمة بناء على القيمة المرسلة له من خلال باراميتر

يعطيك العافية

لا أستخدم ٍselect case لأنى سأحتاج التوجه الى احدى الfunctionS
FUNC1 , FUNC2 فى عدة مواضع فى الكود لا فى موضع واحد
ولا أريد فى كل مرة كتابة كود ال ٍselect case
وانما أريد فى كل مرة كتابة جملة واحدة ٍ

كود :

FUNCC

الصفحات : 1 2 3 4

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اسلام الكبابى

administrator

Ahmed_Mansoor

احمداحمداحمد6

اسلام الكبابى

Ahmed_Mansoor

اسلام الكبابى

administrator

abulayth

اسلام الكبابى