PDA

View Full Version : ارتباط دادن یک متن داخل html در تکستباکس در وی بی!


niksalehi
چهارشنبه 14 تیر 1391, 22:41 عصر
سلام به همه دوستان!
من یک صفحه html لود کردم ، بعد اومدم تو یه تکستباکس توی وی بی متنی رو نوشتم ، بعد همون متن داخل یک تکستباکس توی html نوشته شد؛ این تاپیک رو ببینــــــــــد (http://barnamenevis.org/showthread.php?298333-%D8%A7%D8%B1%D8%AA%D8%A8%D8%A7%D8%B7-%D9%8A%D9%83-TextBox-%D8%A8%D8%A7-TextBox-%D8%AF%D8%B1-%D9%8A%D9%83-%D8%B3%D8%A7%D9%8A%D8%AA)

حالا من میخوام توی اون صفحه لود شده اگه یک تکستباکسی عوض شد، تکستباکس وی بی منم عوض بشه!
راهی هست آیا؟!
oYaMaa
چهارشنبه 14 تیر 1391, 22:49 عصر
فکر میکنم منظورتونو فهمیدم.
ببین واسه این کار باید همون طور که تو همون تایپیک زدن بر عکسشو عمل کنی!
Text1.Text=Web.Document.Forms(0).elements("TextBoxName").Value
niksalehi
چهارشنبه 14 تیر 1391, 22:56 عصر
بله منظورم رو فهمیدین اما جواب نداد! :(
oYaMaa
چهارشنبه 14 تیر 1391, 23:05 عصر
پس راه کار همینه، نمیدونم چرا جواب نداده!
دقت کنید که جای TextBox Name شما باید اسم اون تکس باکس مد نظرو قرار بدین!
که واسه این کار کافیه یه نگاه به سورس html وب سایت بندازید.
niksalehi
چهارشنبه 14 تیر 1391, 23:11 عصر
والا طمئنم که اسم تکستباکس و درست میزنم اما ارور میده!

Private Sub Text1_Change()
Me.WebBrowser1.Document.Forms(0).elements("textbox name").Value = Text1.Text
End Sub

اما این کد رو باید کجا بنویسم؟!

Text1.Text=Web.Document.Forms(0).elements("TextBox Name").Value
oYaMaa
چهارشنبه 14 تیر 1391, 23:22 عصر
این کد رو باید وقتی وب بروزر لود کرد سایت رو ازش استفاده کنید.
که اتوماتیکش میشه اینکه توی DocumentComplete وب بروزر این کد رو قرار بدید.
just4froum
چهارشنبه 14 تیر 1391, 23:31 عصر
کلا در استفاده از webbrowser سعی کنید از On error resume next استفاده کنید چون خیلی مواقع سبب ایجاد اررور می شود.
niksalehi
یک شنبه 18 تیر 1391, 02:14 صبح
دوستان من یه مشکلی دارم، من تو پیدا کردن اسم دکمه ها از روی سورس سایت مشکل دارم، مثلا ایـــــــــــــــــــــــ ـــن سایت (http://www.baranak.com/) دکمه ی ترجمه کن اسمش توی سورس چیه؟
کلا واسه پیدا کردن اسم این دسته از دکمه ها که زیادم هستن چیکار باید کرد؟
محسن واژدی
یک شنبه 18 تیر 1391, 09:16 صبح
سلام
بجای کلیک بر روی دکمه ، فرم را ارسال کنید:

Private Sub Command1_Click()
WebBrowser1.Document.Forms(0).submit
End Sub

موفق باشید
ali-a2
یک شنبه 18 تیر 1391, 11:56 صبح
با سلام

سایت هایی مثل Google Translate رو باید چی کار کنیم ؟ سورسشون که مثل بقیه سایت ها نیس .
_behnam_
یک شنبه 18 تیر 1391, 14:09 عصر
والا طمئنم که اسم تکستباکس و درست میزنم اما ارور میده!

Private Sub Text1_Change()
Me.WebBrowser1.Document.Forms(0).elements("textbox name").Value = Text1.Text
End Sub

اما این کد رو باید کجا بنویسم؟!

Text1.Text=Web.Document.Forms(0).elements("TextBox Name").Value
میتونید کد رو توی تایمر قرار بدید
محسن واژدی
یک شنبه 18 تیر 1391, 14:43 عصر
با سلام

سایت هایی مثل Google Translate رو باید چی کار کنیم ؟ سورسشون که مثل بقیه سایت ها نیس .

سلام علیکم
چرا گوگل هم تقریبا به همین صورت هست،