تکست باکس

[mahdi.fa]

سلام دوستان من چجوری میتونم از فایل های متحرک فلش در برنامه ام استفاده کنم ؟
راستی سوال قبلیم هم کسی جوابش را نداد اگه کسی بلد هست یک لطفی بکند ممنون میشوم.
سوال این بود:

من در برنامه ام یک تکست باکس قرار داده ام که این تکست باکس دارای چندین خط است من میخواستم که با کلیک کردن روی هر سطر از این تکست باکس تمام آن سطر را انتخاب کند فقط همان سطر چه وسط و چه جای دیگر.
همین طور متن هایی که داخل تکست باکس قرار دارد را چکونه میتوانم به حالت که همه را هم تراز هم میکند قرار بدهم .:افسرده::اشتباه:
با تشکر .:قلب:

[ASedJavad]

سلام
سوال سومت، تو تکست باکس امکان همطرازی کامل (جاستیفای) وجود نداره
حتی این امکان تو ریچ تکست باکس هم بای متون فارسی درست جواب نمیده
و من حدود یک سال دنبال کنترلی گشتم که این کار رو برام انجام بده ولی پیدا نکردم.
اگه شما پیدا کردی، حتما برا منم بفزست.

[Javad-2010]

چجوری میتونم از فایل های متحرک فلش در برنامه ام استفاده کنم ؟

من از این استفاده میکنم:

Flash10e.ocx (http://s1.picofile.com/file/7288885692/Flash10e.ocx.html)

[ASedJavad]

سوال دومت رو هم دقیق متوجه نشدم منظورت خطه یا پاراگراف
اگه منظورت خطه از کد زیر استفاده کن:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_GETSEL = &HB0
Private Const EM_LINEINDEX = &HBB
Private Const EM_LINELENGTH = &HC1
Private Const EM_LINEFROMCHAR = &HC9

Private Sub Text1_Click()
H = Text1.hwnd
CursorPos = SendMessage(H, EM_GETSEL, 0, ByVal 0&) \ 65536
nLine = SendMessage(H, EM_LINEFROMCHAR, CursorPos, ByVal 0&)
FirstChar = SendMessage(H, EM_LINEINDEX, nLine, ByVal 0&)
Text1.SelStart = FirstChar
Text1.SelLength = SendMessage(H, EM_LINELENGTH, FirstChar, ByVal 0&)
End Sub


و اگه منظورت پاراگرافه از کد زیر:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_GETSEL = &HB0

Private Sub Text1_Click()
H = Text1.hwnd
CursorPos = SendMessage(H, EM_GETSEL, 0, ByVal 0&) \ 65536
If CursorPos = 0 Then CursorPos = 1
FirstChar = InStrRev(Text1.Text, vbCrLf, CursorPos)
endchar = InStr(CursorPos, Text1.Text, vbCrLf)
If endchar < FirstChar Then endchar = Len(Text1.Text)
Text1.SelStart = FirstChar
Text1.SelLength = endchar - FirstChar
End Sub


موفق باشی

[Javad-2010]

من در برنامه ام یک تکست باکس قرار داده ام که این تکست باکس دارای چندین خط است من میخواستم که با کلیک کردن روی هر سطر از این تکست باکس تمام آن سطر را انتخاب کند فقط همان سطر چه وسط و چه جای دیگر.

برای این کار از کد زیر استفاده کن:


Private Sub Text1_Click()
SendKeys "{Home}+{End}"
End Sub

[mahdi.fa]

سلام asedjavad (http://barnamenevis.org/member.php?60645-asedjavad) ممنون از پاسخاتون ولی در مورد فایل فلش اگه میشود یکم توضیح بدید مثلامن چجوری با این فایل کار کنم اخه من فایل های فلش اماده دارم می خواهم بزارم توی برنامه ممنون.:متعجب:

[Javad-2010]

در مورد فایل فلش اگه میشود یکم توضیح بدید مثلامن چجوری با این فایل کار کنم اخه من فایل های فلش اماده دارم می خواهم بزارم توی برنامه
اینجا یه نمونه هست. (http://barnamenevis.org/showthread.php?286037-%D8%AE%D8%B7%D8%A7-System-Error-amp-H80004005%28-2147467259%29-%D8%AF%D8%B1-Shock-Wave&p=1260013&viewfull=1#post1260013)