دسته: سورس کد

با سلام و سپاس خدمت کاربران عزیز 

با این تکه کد شما میتونید اعراب آیه ها رو تغییر رنک کاملا اختصاصی بدید .

امیدوارم مفید واقع گردد.

گرداورنده : گودرزی 

Dim matn1 As String=List1(2).Get(Position)
  Dim s As String
  s = matn1.Replace("َ","$َ$").Replace("ّ","$ّ$").Replace("ِ","$ِ$").Replace("ٔ","$ٔ$").Replace("ْ","$ْ$") _
  .Replace("ُ","$ُ$").Replace("ً","$ً$").Replace("ٍ","$ٍ$").Replace("ٌ","$ٌ$").Replace("ٰ","$ٰ$")
  Dim r As RichString
  r.Initialize(s)
  r.Color2(Colors.Red,"$")
  Label.Text = r