ين کنترل hWnd دارد?

[ASedJavad]

سلام
توي پرانتز رو چطوري بايد پر کنم؟ :

Dim i As Control

For Each i In Me

 if ( ميباشد hWnd دارايi) then

 ...

 End If

Next i

در ضمن از On Error هم نميخوام استفاده کنم.

[mpmsoft]

هیچ راهی جز استفاده از On error نداره
شما می تونید بر اساس کد خطای 438 چک کنید

[ASedJavad]

ممنون
ولي من On Error گذاشتم، اما اين دستور خطا رو رد نمي کنه.
نمي دونم چرا
يعني قبل از if يه دستور On Error گذاشتم ولي باز به دستور i.hwnd که ميرسه خطا ميده

[r0ot$harp]

سلام
توي پرانتز رو چطوري بايد پر کنم؟ :

Dim i As Control

For Each i In Me

 if ( ميباشد hWnd دارايi) then

 ...

 End If

Next i

در ضمن از On Error هم نميخوام استفاده کنم.

دوست عزیز شما می خواین چی کار کنید ؟


باتشکر احسان(Sanaz13x)

[vbhamed]

سلام

من كه اين كد رو با يك عدد دكمه و يك Label تست كردم مشكل نداشت

Private Sub Form_Load()



    On Error Resume Next



    Dim i As Control



    For Each i In Me



        Dim x&

        

        x = -1

        x = i.hWnd

        

        If x > 0 Then Print "Hwnd darad" Else Print "Hwnd Nadarad"



    Next



End Sub

[ASedJavad]

بي زحمت اين برنامه رو يه چک بکنيد
تو کامپيوتر من که ارور ميده
[

[vbhamed]

سلام

وقتي خطا رو با دستور On Error به دام مي ندازيد بايد توجه كنيد كه توي خود روال كنترل خطا نبايد خطايي اتفاق بيفته
شما تو برنامتون اشاره كرديد در صورت خطا به خط A برو، اما بعد از اين تكليف رو مشخص نكردين، بنابراين برنامه دوباره به خط خطا بر مي گرده و اينبار ديگه پيام خطا مي ده

اينم برنامه اصلاح شده

Private Sub Command1_Click()

     Dim i As Control

    On Error GoTo a

     For Each i In UserControl

         Dim x&

        x = -1

        x = i.hWnd

        If x > 0 Then

            Print "Hwnd darad"

        Else

            Print "Hwnd Nadarad"

        End If

 a:

Resume Next

     Next

 End Sub