PDA

View Full Version : سوال: نحوه صدا زدن کنترل های فرم اصلی از فرم دیگه ای که new شده



aftabeshargh
دوشنبه 28 فروردین 1391, 00:23 صبح
سلام
با زدن دکمه new فرم مربوط به ثبت اطلاعات باز میشه :


dim f as new form2
f.showdialog

حالا میخوام از تو فرم form2 وقتی دکمه ای رو میزنم " تو فرم اصلی دکمه btn " کلیک بشه (perform click)

به چه صورته؟

ROSTAM2
دوشنبه 28 فروردین 1391, 00:52 صبح
دو تا راه به ذهنم رسید
1. کدای توی دکمه رو وارد یه متد جدید کن هم متد رو توی ایونت دکمه صدا بزن هم توی فرم جدیدت اونو صدا بزن
2. یه متد بساز ایونت دکمه رو صدا بزن بعد توی فرم جدید اون متد رو صدا بزن
البته متدت باید توی فرمی که گفتی اصلیه بسازی و عمومی باشه

راستی حالا چرا فرم رو اینجوری صدا زدی؟

if Form2.ShowDialog(Me) = Cancel Then exit sub

aftabeshargh
دوشنبه 28 فروردین 1391, 09:20 صبح
سلام


راستی حالا چرا فرم رو اینجوری صدا زدی؟

1
if Form2.ShowDialog(Me) = Cancel Then exit sub



من اینجوری ننوشتم!!!

xxnagin
دوشنبه 28 فروردین 1391, 11:54 صبح
سلام
به جای dim از public استفاده کن و در بالای فرم اعلان کن
dim f as new form2
را به
Public f AsNewForm2
تغییر بده
و بعد

form1.f.showdialog

یا
به جای Private از public استفاده کن و تو فرم 2 اینجوری بنویس مثل کد زیر
Form1.Button1_Click(Me,e)








Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As New Form2
f.ShowDialog()
End Sub

aftabeshargh
دوشنبه 28 فروردین 1391, 13:00 عصر
سلام
نمیشه!

Hybrid
دوشنبه 28 فروردین 1391, 13:26 عصر
سلام
نمیشه!

سلام ، از متد Perform Click دکمه ها استفاده کنی میشه.

xxnagin
دوشنبه 28 فروردین 1391, 13:28 عصر
این یه تیکه کد
Public Sub Button1_Click .....
از شما به این صورت هستش
private Sub Button1_Click .....
private رو به Public تغییر بده

اینم یه نمونه
یه پروژه جدید این کد امتحان کن
دو تا دکمه بذار تو فرم 1
و یکی تو فرم 2
'form1
Public Class Form1
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("ok")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim f As New Form2
f.ShowDialog()
End Sub
End Class
'form2
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.Button1_Click(sender, e)
End Sub
End Class

aftabeshargh
دوشنبه 28 فروردین 1391, 15:08 عصر
سلام
ممنون " اما هیچ کدوم از روش ها تو برنامم جواب نمیده !!!!!!!!!!!!!!!!!!!!!!!!!