请老师给看看,怎么能让窗口在固定位置显示。比如窗口的起始点是(1,1).
Dim name As String = args(0)
Dim title As String = args(1)
Dim desc As String = args(2)
'-----------------不必理会,这些代买用于生产窗口和控件,拷贝过来的---------------
Dim frm As New System.Windows.Forms.Form
Dim Label1 As System.Windows.Forms.Label
Dim Button1 As System.Windows.Forms.Button
Label1 = New System.Windows.Forms.Label
Button1 = New System.Windows.Forms.Button
Label1.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(234, Byte))
Label1.Location = New System.Drawing.Point(10,10)'显示文字位置
Label1.Name = "Label1"
Label1.Size = New System.Drawing.Size(600,700)'文字的位置大小
Label1.TabIndex = 0
Label1.Text = desc
Button1.Location = New System.Drawing.Point(350, 720)'以后取消提示按键的位置坐标
Button1.Name = name
Button1.Size = New System.Drawing.Size(120,60)'以后取消按钮的框大小
Button1.TabIndex = 1
Button1.Text = "以后取消提示"
Button1.UseVisualStyleBackColor = True
AddHandler Button1.Click, AddressOf Button_Click
frm.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
frm.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
frm.ClientSize = New System.Drawing.Size(600,750)'窗口大小'
frm.Controls.Add(Button1)
frm.Controls.Add(Label1)
frm.MaximizeBox = False
frm.Name = name
frm.Text = title
frm.ResumeLayout(False)
'------------------------------------------------
AddHandler frm.Closing, AddressOf Form_Closing
frm.show()
frm_dic.Add(name, frm)