تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معرفة هل المكتوب في التكست حروف ام ارقام
#1
السلام عليكم
اريد معرفة المكتوب في تكست ارقام ام حروف

يعني يكون الكود بهذه الطريقة مثلا

اذا كان المكتوب في
text1.text ارقام ، وبعدين تنفيذ بقاية الجملة الشرطية عادي

واعتذر سؤال اخر بالنسبة لاداة الانترنت الي هي
Inet1

كيف اضع اللاتصال بموقع معين في جملة شرطية
يعني مثلا نقول اذا كان
Inet1 متصل بالموقع http://vb4arb.com نفذ هذا الامر علي سبيل المثال




بارك الله فيكم انتظر الاجابة
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

- بالنسبة للسؤال الأول :
كود :
If IsNumeric(Trim$(Text1.Text)) = True Then
   MsgBox "المحتوى رقما"
Else
   MsgBox "المحتوى ليس رقما"
End If

- بالنسبة للسؤال الثاني . جرب هذا الكود . مع أني لم أستخدم هذه الأداة :
كود :
Private Sub command1_Click()
    With Inet1
        .URL = "http://ftp.kwikphp.com"
        .Protocol = icFTP
        .UserName = "My FTP username is here"
        .Password = "My FTP password is here"
        .RemoteHost = "ftp.kwikphp.com"
        .RemotePort = 21
        .Execute "ftp.kwikphp.com", "/htdocs/remmacs78/myfile.txt", "PUT", "C:\myfile.txt"
    End With
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icNone
LblStatus.Caption = "Connect Failed.... Error"
Case icResponseReceived
LblStatus.Caption = "Response Received"
Case ichostresolvinghost
LblStatus.Caption = "Looking for IP Address"
Case icHostResolved
LblStatus.Caption = "Found IP Address"
Case icConnecting
LblStatus.Caption = "Connecting"
Case icConnected
LblStatus.Caption = "Connected"
Case icRequesting
LblStatus.Caption = "Sending a Request"
Case icRequestSent
LblStatus.Caption = "Request Send Successfully"
Case icReceivingResponse
LblStatus.Caption = "Receiving Response"
Case icResponseReceived
LblStatus.Caption = "Response Received"
Case icDisconnecting
LblStatus.Caption = "Disconnecting"
Case icDisconnected
LblStatus.Caption = "Disconnected"
Case icError
MsgBox Inet1.ResponseCode & ":" & Inet1.ResponseInfo
LblStatus.Caption = "Error....!"
Case icResponseCompleted
LblStatus.Caption = "Response Completed"
End Select
If Inet1.StillExecuting = True Then
LblStillExecuting.Caption = "Still Executing"
Else
LblStillExecuting.Caption = "Execution Completed"
End If
End Sub

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#3
بارك الله فيك يا طيب
وجزاك الله خير
بالنسبة للسؤال الاول صحيح ويعمل

بالنسبة للسؤال الثاني لا يعمل وساوضح السؤال اكثر لان هذا الكود ليس المطلوب بارك الله فيك

انا الان يوجد تكست علي موقعي اريد ان استدعي هذا التكست وانا استخدم هذا الكود وهو يعمل جيدآ

PHP كود :
Dim A As String
Inet1.OpenURL("http://vb4arb.com/1.txt")
Text1.Text 

الان اريد ان اضع هذا الكود في جملة شرطية لاني ساضع اكثر من موقع
ويكون الكود اذا لم تتصل
Inet1 بالرابط الاول واضع بقاية الكود مثلا اتصل بالرابط الثاني او اي امر
اتمني يكون المطلوب واضح انتظر الاجابة بارك الله فيكم
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

- أخي الكود الخاص بالأداة يعمل جيدا . هذا مثال بكيفية إستخدامه .

- تحياتي .


الملفات المرفقة
.rar   Inet1_Example.rar (الحجم : 2.11 ك ب / التحميلات : 39)
الرد }}}
تم الشكر بواسطة:
#5
بارك الله فيك يا طيب وجزاك الله خير ان شاء الله في ميزان حسانتك

المثال يعمل جيدآ بارك الله فيك
الرد }}}
تم الشكر بواسطة:
#6
VB_Coder كتب :السلام عليكم

- بالنسبة للسؤال الأول :
كود :
If IsNumeric(Trim$(Text1.Text)) = True Then
   MsgBox "المحتوى رقما"
Else
   MsgBox "المحتوى ليس رقما"
End If

- بالنسبة للسؤال الثاني . جرب هذا الكود . مع أني لم أستخدم هذه الأداة :
كود :
Private Sub command1_Click()
    With Inet1
        .URL = "http://ftp.kwikphp.com"
        .Protocol = icFTP
        .UserName = "My FTP username is here"
        .Password = "My FTP password is here"
        .RemoteHost = "ftp.kwikphp.com"
        .RemotePort = 21
        .Execute "ftp.kwikphp.com", "/htdocs/remmacs78/myfile.txt", "PUT", "C:\myfile.txt"
    End With
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icNone
LblStatus.Caption = "Connect Failed.... Error"
Case icResponseReceived
LblStatus.Caption = "Response Received"
Case ichostresolvinghost
LblStatus.Caption = "Looking for IP Address"
Case icHostResolved
LblStatus.Caption = "Found IP Address"
Case icConnecting
LblStatus.Caption = "Connecting"
Case icConnected
LblStatus.Caption = "Connected"
Case icRequesting
LblStatus.Caption = "Sending a Request"
Case icRequestSent
LblStatus.Caption = "Request Send Successfully"
Case icReceivingResponse
LblStatus.Caption = "Receiving Response"
Case icResponseReceived
LblStatus.Caption = "Response Received"
Case icDisconnecting
LblStatus.Caption = "Disconnecting"
Case icDisconnected
LblStatus.Caption = "Disconnected"
Case icError
MsgBox Inet1.ResponseCode & ":" & Inet1.ResponseInfo
LblStatus.Caption = "Error....!"
Case icResponseCompleted
LblStatus.Caption = "Response Completed"
End Select
If Inet1.StillExecuting = True Then
LblStillExecuting.Caption = "Still Executing"
Else
LblStillExecuting.Caption = "Execution Completed"
End If
End Sub

- تحياتي .
--------------------------------------------------------------------------
استاذي العزيز :VB_Coder
السلام عليكم ورحمة وبركاتة
كيف اشترط على المستخدم إدخال في text نص وليس رقماً ؟؟
نامل من اله ثم منكم الاجابة
والله يحفظكم ويرعاكم
الرد }}}
تم الشكر بواسطة:
#7
السلام عليكم

- جرب هذا الكود :

كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim zNumbers As String
zNumbers="0123456789"
IF Instr(1,zNumbers,Chr(KeyAscii)) <> 0 Then
KeyAscii=0
Exit Sub
End IF
End Sub

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#8
لكم مني الف شكر وتقدير استاذي العزيز
على ما تقدمة لنا من دعم فني والله يحفظكم ويرعاكم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب كود توليد ارقام انا احددها nablion 3 2,362 14-09-23, 01:03 AM
آخر رد: الحزين اليماني
  ممكن كود منع كتابة ارقام في text imatawen 8 7,744 08-02-21, 08:42 PM
آخر رد: abuahmad
  طلب كود عد حروف معينه فى اى جمله الحلوانى 2 1,873 31-08-17, 06:49 PM
آخر رد: الحلوانى
  [كود] كيف اعمل شرط على text box علشان يدخل ارقام فقط noor alhuda 2 2,417 03-05-17, 01:59 AM
آخر رد: قتيبه عباد
  سؤال في الكتابة على التكست عمور2016 3 2,347 18-02-17, 12:21 PM
آخر رد: عمور2016
  [سؤال] ماهو كود كتابة الحقل حروف عربية فقط alfakeeh 5 3,526 31-03-16, 09:26 PM
آخر رد: ahmed.m
  من المنتدى القديم (هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!!) VBMaged 3 2,618 23-10-15, 11:51 PM
آخر رد: اسلام الكبابى
  معرفة ما اذا كان بالامكان عمل برنامج من دون سكيول سرفر AHMED213 3 3,024 29-08-13, 12:14 AM
آخر رد: AHMED213
  هل بالامكان معرفة اسم وعنوان الكائن اثناء التشغيل أبوالعباس 1 1,949 28-08-13, 02:13 PM
آخر رد: أبوالعباس
  برجاء معرفة تشغيل الاداة FPSPR70.ocx WAEL ABED 0 2,026 26-08-13, 04:23 AM
آخر رد: WAEL ABED

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم