Hello

文章分类 -  推理图设计

控件的拖动
摘要:Dim p Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove, TextBox1.MouseMove '在MouseMove事件(, 检测是否持续按着鼠标左键, 如果是则... 阅读全文
posted @ 2006-07-21 21:33 WaikingLiu 阅读(102) 评论(0) 推荐(0)
Xml 文件读写操作
摘要:Private Sub Read_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim swXML As New System.IO.StringWriter dsAuthors.WriteXml(swXML) ... 阅读全文
posted @ 2006-07-21 21:30 WaikingLiu 阅读(136) 评论(0) 推荐(0)
异型窗体/控件
摘要:设置控件背景透明色: SetStyle(ControlStyles.SupportsTransparentBackColor, True) Me.BackColor = Color.Transparent 设置椭圆形窗体/控件 Dim oPath As New GraphicsPath oPath.AddEllipse(50, ... 阅读全文
posted @ 2006-07-21 21:22 WaikingLiu 阅读(155) 评论(0) 推荐(0)
描述如何从 Windows 应用程序对 Web 服务方法进行调用
摘要:1. 新建web服务Service1,计算x+y Public Function WebAdd(ByVal x As Integer, ByVal y As Integer) As Integer Return x + y End Function 2. 新建window应用程序 添加控件 textbox1,textbox2,textbo... 阅读全文
posted @ 2006-07-21 21:15 WaikingLiu 阅读(278) 评论(0) 推荐(0)