[ابو انس]

لدي داتا جريد فيو وتيكست بوكس عدد 2 تحتوي على ارقام
اريد عند وضع مؤشر الماوس فوق اي تيكست بوكس ان يظهر لي tooltip يحتوي على كتابة الرقم الموجود داخل التيكست بوكس او خليةالداتا جريد فيو
علما اني املك كود التفقيط وهو يعمل بشكل جيد
مثل 
textbox1 فيها رقم 120 اريد عند وضع المؤشر فوق التيكست بوكس ان يظهر كلمة مائة وعشرون
شكرا

[messry]

(04-04-21, 03:58 PM)ابو انس كتب : لدي داتا جريد فيو وتيكست بوكس عدد 2 تحتوي على ارقام
اريد عند وضع مؤشر الماوس فوق اي تيكست بوكس ان يظهر لي tooltip يحتوي على كتابة الرقم الموجود داخل التيكست بوكس او خليةالداتا جريد فيو
علما اني املك كود التفقيط وهو يعمل بشكل جيد
مثل 
textbox1 فيها رقم 120 اريد عند وضع المؤشر فوق التيكست بوكس ان يظهر كلمة مائة وعشرون
شكرا

السلام عليكم
أخي الكريم الموضوع له أكثر من شق
تتبع مع الآتي 
أولاً: انشئ مديول وسمه ما شئت
ثانياً: ضع هذا الكود بداخله

كود :

Option Strict Off
Option Explicit Off
Module Module1
   Public Function HANY(ByVal HANY1 As Decimal, ByVal HANY2 As String) As String
       On Error Resume Next
       Dim VPS As Decimal = 0
       Dim V As Decimal = 0
       Dim WORDINTEGER As String = ""
       Dim LE As String = ""
       Dim P As String = ""
       Dim PS As String = ""
       HANY = ""
       Dim POUNDS As String = ""
       Dim WORDPS As String = ""
       Dim DOLLAR As String = ""
       Dim SENT As String = ""
       Dim SENTS As String = ""
       Dim TON As String = ""
       Dim KG As String = ""
       Dim KGS As String = ""
       Select Case HANY2
           Case "EGYPT"
               LE = " دينار "
               P = " فلساً "
               PS = " فلوس "
               POUNDS = " دينار "
               V = Int(Math.Abs(HANY1))
               VPS = Val(Right(Format(HANY1, "000000.000"), 3))
               WORDINTEGER = AmountWord(V)
               WORDPS = AmountWord(VPS)
               If WORDINTEGER <> "" And (VPS <= 2) Then HANY = WORDINTEGER & LE & " و " & WORDPS & P & "فقط لاغير "
               If WORDINTEGER <> "" And (VPS >= 3 And VPS <= 9) Then HANY = WORDINTEGER & LE & " و " & WORDPS & PS & "فقط لاغير "
               If WORDINTEGER <> "" And (VPS > 9) Then HANY = WORDINTEGER & LE & " و " & WORDPS & P & "فقط لاغير "
               If WORDINTEGER = "" And (VPS <= 2) Then HANY = WORDPS & P & "فقط لاغير "
               If WORDINTEGER = "" And (VPS >= 3 And VPS <= 9) Then HANY = WORDPS & PS & "فقط لاغير "
               If WORDINTEGER = "" And VPS > 9 Then HANY = WORDPS & P & "فقط لاغير "
               If WORDINTEGER = "" And VPS = 0 Then HANY = ""
               If WORDINTEGER <> "" And VPS = 0 Then HANY = WORDINTEGER & LE & "فقط لاغير "
           Case "USA"
               DOLLAR = " دولار "
               SENT = " سنتاً "
               SENTS = "سنتات"
               V = Int(System.Math.Abs(HANY1))
               VPS = Val(Right(Format(HANY1, "00000000000.000"), 3))
               WORDINTEGER = AmountWord(V)
               WORDPS = AmountWord(VPS)
               If WORDINTEGER <> "" And (VPS <= 2) Then HANY = WORDINTEGER & DOLLAR & " و " & WORDPS & SENT & "فقط لاغير "
               If WORDINTEGER <> "" And (VPS >= 3 And VPS <= 9) Then HANY = WORDINTEGER & DOLLAR & " و " & WORDPS & " " & SENTS & " " & "فقط لاغير "
               If WORDINTEGER <> "" And (VPS > 9) Then HANY = WORDINTEGER & DOLLAR & " و " & WORDPS & SENT & "فقط لاغير "
               If WORDINTEGER = "" And (VPS <= 2) Then HANY = WORDPS & SENT & "فقط لاغير "
               If WORDINTEGER = "" And (VPS >= 3 And VPS <= 9) Then HANY = WORDPS & " " & SENTS & " " & "فقط لاغير "
               If WORDINTEGER = "" And VPS > 9 Then HANY = WORDPS & SENT & "فقط لاغير "
               If WORDINTEGER = "" And VPS = 0 Then HANY = ""
               If WORDINTEGER <> "" And VPS = 0 Then HANY = WORDINTEGER & DOLLAR & "فقط لاغير "
           Case "WEIGHT"
               TON = ""
               KG = ""
               KGS = ""
               V = Int(Math.Abs(HANY1))
               VPS = Val(Right(Format(HANY1, "000000000000.000"), 3))
               WORDINTEGER = AmountWord(V)
               WORDPS = AmountWord(VPS)
               If WORDINTEGER <> "" And (VPS <= 2) Then HANY = WORDINTEGER & TON & " و " & WORDPS & KG & "فقط لاغير "
               If WORDINTEGER <> "" And (VPS >= 3 And VPS <= 9) Then HANY = WORDINTEGER & TON & " و " & WORDPS & KGS & "فقط لاغير "
               If WORDINTEGER <> "" And (VPS > 9) Then HANY = WORDINTEGER & TON & " و " & WORDPS & KG & "فقط لاغير "
               If WORDINTEGER = "" And (VPS <= 2) Then HANY = WORDPS & KG & "فقط لاغير "
               If WORDINTEGER = "" And (VPS >= 3 And VPS <= 9) Then HANY = WORDPS & KGS & "فقط لاغير "
               If WORDINTEGER = "" And VPS > 9 Then HANY = WORDPS & KG & "فقط لاغير "
               If WORDINTEGER = "" And VPS = 0 Then HANY = ""
               If WORDINTEGER <> "" And VPS = 0 Then HANY = WORDINTEGER & TON & "فقط لاغير "
       End Select
   End Function
   Private Function AmountWord(ByVal AMOUNT As Decimal) As String
       On Error Resume Next
       Dim n As Decimal = 0
       Dim C1 As Decimal = 0
       Dim C2 As Decimal = 0
       Dim C3 As Decimal = 0
       Dim C4 As Decimal = 0
       Dim C5 As Decimal = 0
       Dim C6 As Decimal = 0
       Dim S1 As String = ""
       Dim S2 As String = ""
       Dim S3 As String = ""
       Dim S4 As String = ""
       Dim S5 As String = ""
       Dim S6 As String = ""
       Dim C As String = ""
       n = Int(AMOUNT)
       C = Format(n, "000000000000")
       C1 = Val(Mid(C, 12, 1))
       Select Case C1
           Case Is = 1 : S1 = "واحد"
           Case Is = 2 : S1 = "اثنان"
           Case Is = 3 : S1 = "ثلاثة"
           Case Is = 4 : S1 = "اربعة"
           Case Is = 5 : S1 = "خمسة"
           Case Is = 6 : S1 = "ستة"
           Case Is = 7 : S1 = "سبعة"
           Case Is = 8 : S1 = "ثمانية"
           Case Is = 9 : S1 = "تسعة"
       End Select

       C2 = Val(Mid(C, 11, 1))
       Select Case C2
           Case Is = 1 : S2 = "عشر"
           Case Is = 2 : S2 = "عشرون"
           Case Is = 3 : S2 = "ثلاثون"
           Case Is = 4 : S2 = "اربعون"
           Case Is = 5 : S2 = "خمسون"
           Case Is = 6 : S2 = "ستون"
           Case Is = 7 : S2 = "سبعون"
           Case Is = 8 : S2 = "ثمانون"
           Case Is = 9 : S2 = "تسعون"
       End Select

       If S1 <> "" And C2 > 1 Then S2 = S1 + " و" + S2
       If S2 = "" Then S2 = S1
       If C1 = 0 And C2 = 1 Then S2 = S2 + "ة"
       If C1 = 1 And C2 = 1 Then S2 = "احدى عشر"
       If C1 = 2 And C2 = 1 Then S2 = "اثنى عشر"
       If C1 > 2 And C2 = 1 Then S2 = S1 + " " + S2
       C3 = Val(Mid(C, 10, 1))
       Select Case C3
           Case Is = 1 : S3 = "مائة"
           Case Is = 2 : S3 = "مئتان"
           Case Is > 2 : S3 = Left(AmountWord(C3), Len(AmountWord(C3)) - 1) + "مائة"
       End Select
       If S3 <> "" And S2 <> "" Then S3 = S3 + " و" + S2
       If S3 = "" Then S3 = S2

       C4 = Val(Mid(C, 7, 3))
       Select Case C4
           Case Is = 1 : S4 = "الف"
           Case Is = 2 : S4 = "الفان"
           Case 3 To 10 : S4 = AmountWord(C4) + " آلاف"
           Case Is > 10 : S4 = AmountWord(C4) + " الف"
       End Select
       If S4 <> "" And S3 <> "" Then S4 = S4 + " و" + S3
       If S4 = "" Then S4 = S3
       C5 = Val(Mid(C, 4, 3))
       Select Case C5
           Case Is = 1 : S5 = "مليون"
           Case Is = 2 : S5 = "مليونان"
           Case 3 To 10 : S5 = AmountWord(C5) + " ملايين"
           Case Is > 10 : S5 = AmountWord(C5) + " مليون"
       End Select
       If S5 <> "" And S4 <> "" Then S5 = S5 + " و" + S4
       If S5 = "" Then S5 = S4

       C6 = Val(Mid(C, 1, 3))

       Select Case C6
           Case Is = 1 : S6 = "مليار"
           Case Is = 2 : S6 = "ملياران"
           Case Is > 2 : S6 = AmountWord(C6) + " مليار"
       End Select
       If S6 <> "" And S5 <> "" Then S6 = S6 + " و" + S5
       If S6 = "" Then S6 = S5
       AmountWord = S6
   End Function
   Public Function MydateWord(ByVal MYDATE As Date) As String
       On Error Resume Next
       Dim n As Integer = 0
       Dim C1 As Decimal = 0
       Dim C2 As Decimal = 0
       Dim C3 As Decimal = 0
       Dim S1 As String = ""
       Dim S2 As String = ""
       Dim C As String = ""
       MydateWord = ""
       C = Format(MYDATE, "dd-mm-yyyy")
       C1 = MYDATE.Day
       C2 = MYDATE.Month
       C3 = MYDATE.Year
       Select Case C1
           Case Is = 1 : S1 = "الاول"
           Case Is = 2 : S1 = "الثانى"
           Case Is = 3 : S1 = "الثالث"
           Case Is = 4 : S1 = "الرابع"
           Case Is = 5 : S1 = "الخامس"
           Case Is = 6 : S1 = "السادس"
           Case Is = 7 : S1 = "السابع"
           Case Is = 8 : S1 = "الثامن"
           Case Is = 9 : S1 = "التاسع"
           Case Is = 10 : S1 = "العاشر"
           Case Is = 11 : S1 = "الحادى عشر"
           Case Is = 12 : S1 = "الثانى عشر"
           Case Is = 13 : S1 = "الثالث عشر"
           Case Is = 14 : S1 = "الرابع عشر"
           Case Is = 15 : S1 = "الخامس عشر"
           Case Is = 16 : S1 = "السادس عشر"
           Case Is = 17 : S1 = "السابع عشر"
           Case Is = 18 : S1 = "الثامن عشر"
           Case Is = 19 : S1 = "التاسع عشر"
           Case Is = 20 : S1 = "العشرون"
           Case Is = 21 : S1 = "الواحد والعشرون"
           Case Is = 22 : S1 = " الثانى والعشرون"
           Case Is = 23 : S1 = "الثالث والعشرون"
           Case Is = 24 : S1 = " الرابع والعشرون"
           Case Is = 25 : S1 = " الخامس والعشرون"
           Case Is = 26 : S1 = "السادس والعشرون"
           Case Is = 27 : S1 = "السابع والعشرون"
           Case Is = 28 : S1 = "الثامن والعشرون"
           Case Is = 29 : S1 = "التاسع والعشرون"
           Case Is = 30 : S1 = "الثلاثون"
           Case Is = 31 : S1 = "الواحد والثلاثون"
       End Select

       Select Case C2
           Case Is = 1 : S2 = "يناير"
           Case Is = 2 : S2 = "فبراير"
           Case Is = 3 : S2 = "مارس"
           Case Is = 4 : S2 = "ابريل"
           Case Is = 5 : S2 = "مايو"
           Case Is = 6 : S2 = "يونية"
           Case Is = 7 : S2 = "يوليو"
           Case Is = 8 : S2 = "اغسطس"
           Case Is = 9 : S2 = "سبتمبر"
           Case Is = 10 : S2 = "اكتوبر"
           Case Is = 11 : S2 = "نوفمبر"
           Case Is = 12 : S2 = "ديسمبر"
       End Select
       MydateWord = Format(MYDATE, "dddd") & " الموافق " & S1 & " من  شهر " & S2 & " سنة " & AmountWord(CDec(C3)) & " ميلادية "
   End Function
   Public Function MytimeWord(ByVal MYTIME As DateTime) As String
       On Error Resume Next
       Dim n As Integer = 0
       Dim C1 As Decimal = 0
       Dim C2 As Decimal = 0
       Dim C3 As Decimal = 0
       Dim C4 As String = ""
       Dim S1 As String = ""
       Dim S2 As String = ""
       Dim S3 As String = ""
       Dim S4 As String = ""
       Dim S5 As String = ""
       Dim C As DateTime
       MytimeWord = ""
       C = Format(MYTIME, "hh:mm:ss tt")
       C1 = Format(C, "ss")
       C2 = Format(C, "mm")
       C3 = Format(C, "hh")
       C4 = Format(C, "tt")
       Select Case C4
           Case "ص" : S4 = "صباحاَ"
           Case "م" : S4 = "مساءً"
           Case "AM" : S4 = "صباحاَ"
           Case "PM" : S4 = "مساءً"
       End Select
       Select Case C1
           Case Is = 0 : S3 = ""
           Case Is = 1 : S3 = " ثانية واحدة "
           Case Is = 2 : S3 = " ثانيتان"
           Case 3 To 10 : S3 = AmountWord(C1) + " ثوان"
           Case Is > 10 : S3 = AmountWord(C1) + " ثانية"
       End Select
       Select Case C2
           Case Is = 0 : S1 = ""
           Case Is = 1 : S1 = " دقيقة واحدة "
           Case Is = 2 : S1 = " دقيقتان "
           Case 3 To 10 : S1 = AmountWord(C2) + " دقائق "
           Case Is > 10 : S1 = AmountWord(C2) + " دقيقة "
       End Select
       If S1 <> "" And S3 <> "" Then S5 = S1 + " و" + S3
       If S1 = "" Then S5 = S3
       Select Case C3
           Case Is = 0 : S2 = ""
           Case Is = 1 : S2 = "الواحدة"
           Case Is = 2 : S2 = "الثانية"
           Case Is = 3 : S2 = "الثالثة"
           Case Is = 4 : S2 = "الرابعة"
           Case Is = 5 : S2 = "الخامسة"
           Case Is = 6 : S2 = "السادسة"
           Case Is = 7 : S2 = "السابعة"
           Case Is = 8 : S2 = "الثامنة"
           Case Is = 9 : S2 = "التاسعة"
           Case Is = 10 : S2 = "العاشرة"
           Case Is = 11 : S2 = "الحادية عشر"
           Case Is = 12 : S2 = "الثانية عشر"
       End Select
       If S2 <> "" And S1 <> "" And S3 <> "" Then S5 = S2 + " و" + S1 + " و" + S3
       If S2 <> "" And S1 <> "" And S3 = "" Then S5 = S2 + " و" + S1
       If S2 <> "" And S1 = "" And S3 <> "" Then S5 = S2 + " و" + S3
       If S2 <> "" And S1 = "" And S3 = "" Then S5 = S2
       MytimeWord = " الساعة " & S5 & " " & S4
   End Function
End Module

ثالثاً: اذهب الى الفورم وأنت تقول عندك عدد 2 تيكست بوكس
حدد رقم واحد وسمه Textbox7 
اذهب الى محرر الكود والصق هذا الكود 

كود :

   Private Sub TextBox7_MouseHover(sender As Object, e As EventArgs) Handles TextBox7.MouseHover
       Dim MyNumberText As String = HANY(1234, "")
       Dim typeamount As String = ""
       If Len(Me.TextBox7.Text) <> 0 Then
           typeamount = "WEIGHT"
           MyNumberText = HANY(Me.TextBox7.Text, typeamount)
       End If
       Dim but As New ToolTip
       but.UseFading = True
       but.UseAnimation = True
       but.IsBalloon = True
       but.ShowAlways = True
       but.AutoPopDelay = 50000
       but.InitialDelay = 1000
       but.ReshowDelay = 500
       but.SetToolTip(TextBox7, MyNumberText)
   End Sub

بدون اضافة أو تعديل في الكود

شغل الكود واستمتع


أتمنى أكون أفدتك

تقبل مروري

[ابو انس]

شكرا لك
تم الامر بنجاح

[messry]

(04-04-21, 11:23 PM)ابو انس كتب : شكرا لك
تم الامر بنجاح

الله يوفقك

[ابو انس]

استجدت مشكلة
عند تغيير الرقم الموجود في التيكست بوكس ووضع مؤشر الماوس فوق التيكست بوكس يظهر تول تيب عدد 2 واحد يحتوي على الرقم الحالي
والثاني يحتوي على الرقم القديم الذي تم مسحه !!!!

[messry]

حاول استبدال

1234
بــــــ Textbox7

جرب وعطني خبر

[ابو انس]

messry
تم تجريب استبدال 1234 ب Textbox7 ولم ينجح الامر
تم تجريب استبدال 1234 ب Textbox7.text ولم ينجح الامر