ببین من یک کدی دارم ببین به دردت میخوره
کارهایی که میگم قدم به قدم انجام بده
اینها را بگذاری روی صفحه ات
یک دکمه / یک تکس باکس / و یک وب بروزر
(تغییر نام اصلا نده)
وبعد این کد را به صفحه ات اضافه کن
Private Sub Command1_Click()WebBrowser1.Document.getelementbyi d("cke_contents_vB_Editor_QR_editor").childnodes.I tem(0).contentdocument.body.innerhtml = 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 "https://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