h.alizadeh
جمعه 11 مرداد 1387, 19:56 عصر
راهنمایی در رابطه با tableاستاندارد
سلام،
من در برنامه دوتا دکمه دارم که می خوام با کلیک روی یکی به جدول استاندارد (یعنی table از سربرگ استاندارد جعبه ابزار) یک راضافه کنم و با کلیک روی اون یکی دیگه یک ستون...
اینم از کدهایاین دو دکمه م:
دکمه اضافه ی یک سطر:
Dim tRow As New TableRow(), i, a As Integer
tRow.BackColor = Drawing.Color.Ivory
tRow.BorderColor = Drawing.Color.Azure
tRow.BorderStyle = BorderStyle.Dashed
a = Table1.Rows(1).Cells.Count
For i = 0 To a - 1
Dim tCell As New TableCell()
tCell.Text = "number" + i.ToString
tCell.BackColor = Drawing.Color.FloralWhite
tCell.BorderStyle = BorderStyle.Dashed
tCell.BorderColor = Drawing.Color.Blue
' Add new TableCell object to row.
tRow.Cells.Add(tCell)
Next
Table1.Rows.Add(tRow)
دکمه ی اضافه یک ستون:
Dim tCell As New TableCell()
Dim trow As TableRow, i As Integer
For i = 0 To Table1.Rows.Count - 1
tCell = New TableCell
tCell.BorderColor = Drawing.Color.Black
tCell.BackColor = Drawing.Color.FloralWhite
tCell.Text = "number" + i.ToString
trow = Table1.Rows.Item(i)
trow.Cells.Add(tCell)
Next
خب ایراد این الان اینه که مثلا من روی دکمه ی اضافه سطر کلیک می کنم خب یک سطر اضافه میشه بعد که میرم روی یک دکمه ی دیگه کلیک می کنم هر دکمه ای که می خواد توی فرم باشه سطر ی که اضافه شده بود از بین میره!!!!! همین مطلب در مورد ستون م هم صدق میکنه! یعنی اونم همینطور ستونش از بین میره!!!
و اینکه وقتی من روی دکمه ی اضافه سطر کلیک می کنم یک سطر اضافه میشه ولی دوباره روش کلیک میکنم مجدد یک سطر دیگه اضافه نمی کنه!!!
به نظر شما ایراد کارم چیه و چکار باید بکنم؟؟
ممنون
سلام،
من در برنامه دوتا دکمه دارم که می خوام با کلیک روی یکی به جدول استاندارد (یعنی table از سربرگ استاندارد جعبه ابزار) یک راضافه کنم و با کلیک روی اون یکی دیگه یک ستون...
اینم از کدهایاین دو دکمه م:
دکمه اضافه ی یک سطر:
Dim tRow As New TableRow(), i, a As Integer
tRow.BackColor = Drawing.Color.Ivory
tRow.BorderColor = Drawing.Color.Azure
tRow.BorderStyle = BorderStyle.Dashed
a = Table1.Rows(1).Cells.Count
For i = 0 To a - 1
Dim tCell As New TableCell()
tCell.Text = "number" + i.ToString
tCell.BackColor = Drawing.Color.FloralWhite
tCell.BorderStyle = BorderStyle.Dashed
tCell.BorderColor = Drawing.Color.Blue
' Add new TableCell object to row.
tRow.Cells.Add(tCell)
Next
Table1.Rows.Add(tRow)
دکمه ی اضافه یک ستون:
Dim tCell As New TableCell()
Dim trow As TableRow, i As Integer
For i = 0 To Table1.Rows.Count - 1
tCell = New TableCell
tCell.BorderColor = Drawing.Color.Black
tCell.BackColor = Drawing.Color.FloralWhite
tCell.Text = "number" + i.ToString
trow = Table1.Rows.Item(i)
trow.Cells.Add(tCell)
Next
خب ایراد این الان اینه که مثلا من روی دکمه ی اضافه سطر کلیک می کنم خب یک سطر اضافه میشه بعد که میرم روی یک دکمه ی دیگه کلیک می کنم هر دکمه ای که می خواد توی فرم باشه سطر ی که اضافه شده بود از بین میره!!!!! همین مطلب در مورد ستون م هم صدق میکنه! یعنی اونم همینطور ستونش از بین میره!!!
و اینکه وقتی من روی دکمه ی اضافه سطر کلیک می کنم یک سطر اضافه میشه ولی دوباره روش کلیک میکنم مجدد یک سطر دیگه اضافه نمی کنه!!!
به نظر شما ایراد کارم چیه و چکار باید بکنم؟؟
ممنون