ارسال متن به بلاگفا

[samiasoft]

سلام دوستان

من در وب بروزر سایت بلاگفا رو لود کردم و قسمت مطلب جدید رو باز کردم

میخواستم متنی رو به قسمت زیر وارد کنم اما هرکار کردم نتونستم..ممنون میشوم راهنمایی کنید


http://s9.picofile.com/file/8293810642/%D8%B3.jpg

[samiasoft]

دوستان کسی نظری نداره در این باره؟

تاپیک زیر رو هم مطالعه کردم اما نتونستم کاری از پیش ببرم
http://barnamenevis.org/showthread.php?460623-%D9%85%D8%B4%DA%A9%D9%84-%D8%A8%D8%A7-%D8%A8%D9%84%D8%A7%DA%AF%D9%81%D8%A7&highlight=frameleft

[www.pc3enter.tk]

ببین من یک کدی دارم ببین به دردت میخوره
کارهایی که میگم قدم به قدم انجام بده


اینها را بگذاری روی صفحه ات
یک دکمه / یک تکس باکس / و یک وب بروزر

(تغییر نام اصلا نده)

وبعد این کد را به صفحه ات اضافه کن

Private Sub Command1_Click()WebBrowser1.Document.getelementbyi d("cke_contents_vB_Editor_QR_editor").childnodes.Item(0).contentdocument.body.innerhtm l = Text1.Text
End Sub


Private Sub Form_Initialize()
Dim objWsc As Object
Set objWsc = CreateObject("WScript.Shell")
objWsc.RegWrite "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\" & "FEATURE_BROWSER_EMULATION\" & App.EXEName & ".exe", 9000, "REG_DWORD"
Set objWsc = Nothing
End Sub


Private Sub Form_Load()
WebBrowser1.Silent = True
WebBrowser1.Navigate "http://barnamenevis.org/showthread.php?522397-%D9%BE%D8%B1-%DA%A9%D8%B1%D8%AF%D9%86-iframe-%D8%AF%D8%B1-webbrowser"
End Sub


Public Function Size(ByVal NumSize As String, ByVal Numberic As Long) As Long
Size = Numberic * NumSize / 100
End Function




Private Sub Form_Resize()
WebBrowser1.Width = Size(100, Width)
WebBrowser1.Height = Size(100, Height)
End Sub

[samiasoft]

ببین من یک کدی دارم ببین به دردت میخوره
کارهایی که میگم قدم به قدم انجام بده

اینها را بگذاری روی صفحه ات
یک دکمه / یک تکس باکس / و یک وب بروزر

(تغییر نام اصلا نده)

وبعد این کد را به صفحه ات اضافه کن


[/VB]
ممنون از محبتتون

متاسفانه برای بلاگفا این ج نمیده...نمیدونم کدوم تگ هارو بایستی تغییر بدم

اما برای همین انجمن بدون مشکل کار کرد.

[www.pc3enter.tk]

اره والا