正文
vb.net0x2的简单介绍
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.net怎样按住鼠标移动无边框窗体
1.在mouse事件中实现
2.调用windows API
实现方式为：
1.在mouse事件中实现
[csharp] view plain copy
Point mouseOff;//鼠标移动位置变量
bool leftFlag;//标签是否为左键
private void groupControl1_MouseUp(object sender, MouseEventArgs e)
{
if (leftFlag)
{
leftFlag = false;//释放鼠标后标注为false;
}
}
private void groupControl1_MouseMove(object sender, MouseEventArgs e)
{
if (leftFlag)
{
Point mouseSet = Control.MousePosition;
mouseSet.Offset(mouseOff.X, mouseOff.Y); //设置移动后的位置
Location = mouseSet;
}
}
private void groupControl1_MouseDown(object sender, MouseEventArgs e)
{
if (e.Button == MouseButtons.Left)
{
mouseOff = new Point(-e.X, -e.Y); //得到变量的值
leftFlag = true; //点击左键按下时标注为true;
}
}
private void groupControl1_MouseDown(object sender, MouseEventArgs e)
{
if (e.Button == MouseButtons.Left)
{
mouseOff = new Point(-e.X, -e.Y); //得到变量的值
leftFlag = true; //点击左键按下时标注为true;
}
}
2.调用windows API
调用前需要添加using System.Runtime.InteropServices;
[csharp] view plain copy
[DllImport("user32.dll")]
public static extern bool ReleaseCapture();
[DllImport("user32.dll")]
public static extern bool SendMessage(IntPtr hwnd, int wMsg, int wParam, int lParam);
private void groupControl1_MouseDown(object sender, MouseEventArgs e)
{
if (e.Button == MouseButtons.Left)
{
ReleaseCapture(); //释放鼠标捕捉
//发送左键点击的消息至该窗体(标题栏)
SendMessage(Handle, 0xA1, 0x02, 0);
}
}
相关问答
Q1: vb.net如何读写二进制文件？ 有各种类型的变量
open函数用来打开一个文件，其调用的一般形式为：
文件指针名=fopen(文件名,使用文件方式);
其中，
“文件指针名”必须是被说明为FILE
类型的指针变量；
“文件名”是被打开文件的文件名；
“使用文件方式”是指文件的类型和操作要求。
“文件名”是字符串常量或字符串数组。
例如：
FILE
*fp；
fp=("file
a","r");
其意义是在当前目录下打开文件file
a，只允许进行“读”操作，并使fp指向该文件。
又如：
FILE
*fphzk
fphzk=("c:\\hzk16","rb")
其意义是打开C驱动器磁盘的根目录下的文件hzk16，这是一个二进制文件，只允许按二进制方式进行读操作。两个反斜线“\\
”中的第一个表示转义字符，第二个表示根目录。
使用文件的方式共有12种，下面给出了它们的符号和意义。
文件使用方式
意义
“rt”
只读打开一个文本文件，只允许读数据
“wt”
只写打开或建立一个文本文件，只允许写数据
“at”
追加打开一个文本文件，并在文件末尾写数据
“rb”
只读打开一个二进制文件，只允许读数据
“wb”
只写打开或建立一个二进制文件，只允许写数据
“ab”
追加打开一个二进制文件，并在文件末尾写数据
“rt+”
读写打开一个文本文件，允许读和写
“wt+”
读写打开或建立一个文本文件，允许读写
“at+”
读写打开一个文本文件，允许读，或在文件末追加数据
“rb+”
读写打开一个二进制文件，允许读和写
“wb+”
读写打开或建立一个二进制文件，允许读和写
“ab+”
读写打开一个二进制文件，允许读，或在文件末追加数据
对于文件使用方式有以下几点说明：
1)
文件使用方式由r,w,a,t,b，+六个字符拼成，各字符的含义是：
r(read):
读
w(write):
写
a(append):
追加
t(text):
文本文件，可省略不写
b(banary):
二进制文件
+:
读和写
2)
凡用“r”打开一个文件时，该文件必须已经存在，且只能从该文件读出。
3)
用“w”打开的文件只能向该文件写入。若打开的文件不存在，则以指定的文件名建立该文件，若打开的文件已经存在，则将该文件删去，重建一个新文件。
4)
若要向一个已存在的文件追加新的信息，只能用“a”方式打开文件。但此时该文件必须是存在的，否则将会出错。
5)
在打开一个文件时，如果出错，fopen将返回一个空指针值NULL。在程序中可以用这一信息来判别是否完成打开文件的工作，并作相应的处理。因此常用以下程序段打开文件：
6)
if((fp=fopen("c:\\hzk16","rb")==NULL)
{
printf("\nerror
on
open
c:\\hzk16
file
Q2: vb.net的数据库连接
1·绑定数据源来进行连接
2.用代码连接
先到数据库建立一个数据库和相应的表
连接数据库的代码：
Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="
dim conn As SqlClient.SqlConnection
try
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
登录代码：Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="
dim conn As SqlClient.SqlConnection
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()
sqlstr = "Select * From Amd Where AmdName='" TextBox1.Text "' And AmdPwd = '" TextBox2.Text "'"
Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)
Dim dr As SqlClient.SqlDataReader
dr = sqlcmd.ExecuteReader
If dr.Read = True Then '判断一条记录为真
kf.Show() '显示下个窗体
Me.Hide() ’隐藏当前窗体
Else
MessageBox.Show("输入信息有误！", "提示")
TextBox1.Text = ""
TextBox2.Text = ""
End If
关于vb.net0x2和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
