VB.NET質問ｽﾚ (Part19)

VB.NET質問ｽﾚ (Part19) at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

600:デフォルトの名無しさん
 07/02/12 23:17:32 
いい加減スレ違いなんですけど。 
MSの批判がしたいならそれなりの場所でやってくれませんか？

601:デフォルトの名無しさん
 07/02/12 23:20:59 
いやいやこういうお人は出て行けって言っても絶対出て行かないから、 
それならせいぜいからかって楽しませてもらうべきだよw

602:デフォルトの名無しさん
 07/02/12 23:23:47 
>>547 
お前どんだけ書き込んでんだよ。 
よそでやれ。 
ああ、別にMSの製品に問題ないとは思わないが、 
お前の痛さの方がよっぽどひどい。

603:デフォルトの名無しさん
 07/02/12 23:43:19 
沸点の低いスレだ

604:デフォルトの名無しさん
 07/02/12 23:49:02 
>>598 
別に役に立たない代物で、途中までで消えてないからいいって話は全然無いからｗ 
Public Class Form6 
　　Private ContextMenuStrip1 As New ContextMenuStrip 
　　Private ContextMenuStrip2 As New ContextMenuStrip 
　　Private ToolStripMenuItem1 As New ToolStripMenuItem 
　　Private ToolStripMenuItem2 As New ToolStripMenuItem 
　　Private ToolStripMenuItem3 As New ToolStripMenuItem 
　　Private items As ToolStripItem() 
　　Private count As Integer 
　　Private Sub Form6_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
　　　　ToolStripMenuItem1.Text = "ToolStripMenuItem1" 
　　　　ToolStripMenuItem2.Text = "ToolStripMenuItem2" 
　　　　ToolStripMenuItem3.Text = "ToolStripMenuItem3" 
　　　　ContextMenuStrip1.Items.Add(ToolStripMenuItem1) 
　　　　ContextMenuStrip1.Items.Add(ToolStripMenuItem2) 
　　　　ContextMenuStrip1.Items.Add(ToolStripMenuItem3) 
　　　　count = ContextMenuStrip1.Items.Count 
 
　　　　items = New ToolStripItem(count - 1) {} 
　　　　Application.DoEvents() 
　　　　ContextMenuStrip1.Items.CopyTo(items, 0) 
　　　　Application.DoEvents()　'<----　あんたの言ってるのはここまでの話でしょ。 
 
　　　　For i As Integer = 0 To count - 1 
　　　　　　ContextMenuStrip2.Items.Add(items(i)) 
　　　　Next 
　　　　Application.DoEvents() 
　　　　Me.ContextMenuStrip = ContextMenuStrip1 
　　　　Label1.ContextMenuStrip = ContextMenuStrip2 
　　End Sub　 
End Class

次ページ