Foxtable(狐表)用户栏目专家坐堂 → 请求帮助


  共有1963人关注过本帖树形打印复制链接

主题:请求帮助

帅哥哟,离线,有人找我吗?
nxqtxwz
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
请求帮助  发帖心情 Post By:2017/5/18 17:50:00 [显示全部帖子]

请老师给看看,怎么能让窗口在固定位置显示。比如窗口的起始点是(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)


 回到顶部
帅哥哟,离线,有人找我吗?
nxqtxwz
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2017/5/19 8:00:00 [显示全部帖子]

提示: 

---------------------------

错误

---------------------------

自定义函数"新建便笺"执行出错,错误信息如下:



System.ArgumentException: 已添加了具有相同键的项。

   在 System.ThrowHelper.ThrowArgumentException(ExceptionResource resource)

   在 System.Collections.Generic.Dictionary`2.Insert(TKey key, TValue value, Boolean add)

   在 UserCode.AfaV5FHIFupro7Zsv(Object[] Args)

---------------------------

确定  

---------------------------


 回到顶部