正文

vb.net制作例子 vbnet lib

IP云
IP云V管理员/1 阅读
03/15
小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

vb.net怎样制作安装包

打包过程：

1、打开自己已经创建好的VB.NET项目（一般一开始创建项目的时候创建的是Windows窗体应用程序）。

2、点“文件”--“新建项目”--“其vb.net制作例子他项目类型”--“安装部署”--“Visual Studio Installer”--“安装项目”，输入项目名称（此处命名为setup1）并点击“确定”。

3、执行完上一步，在解决方案下面会出现setup1项目。右击setup1项目--“添加”--“项目输出”。

4、在“添加项目输出组”中，选择“主输出”，然后单击“确定”。将自动添加所有依赖项。

5、在解决方案资源管理器中，右击安装项目---“添加”---“合并模块”。  把相关模块添加进来。

6、在文件系统选项卡中添加所需的应用程序图标等文件，并生成应用程序的桌面快捷方式，在快捷方式上右键选择属性，并在属性栏中的图标处选择应用程序快捷方式图标。（要在用户桌面和用户的“程序”菜单属性里将AlwaysCreate属性的值修改为True）。这样安装完程序后就可以看到桌面的图标了

7、关于应用程序图标的详细说明：

（1）点击“应用程序文件夹”并在右侧的列表中的“主输出来自。。”上右键然后点击“创建主输出来自。。的快捷方式”

（2）把生成的快捷方式复制到“用户桌面”，然后右键重命名为vb.net制作例子你想要在程序安装后显示的名字。

（3）重命名完成后在右侧的属性栏中点击图标设置为自己想要的图标，注意，需要先把图标文件ico加入到“应用程序文件夹”中。（ico的制作：先做好256*256的png文件，然后百度ico制作找到在线制作ico的网站，直接生成ico图标文件）

关于安装后的一些属性的设置：

用VB.NET编写以下程序。

using System;

using System.Windows.Forms;

namespace WindowsFormsApplication1

{

    public partial class Form1 : Form

    {

        Timer tm = new Timer();//实例化 timeer 

        static int timeS = 0; //设置静态变量记录秒数

        TimeSpan ts = new TimeSpan(); //实例化 TimeSpan 

        public Form1()

        {

            InitializeComponent();

        }

        private void button1_Click(object sender, EventArgs e)

        {

            tm.Interval = 1000; //设置 timeer 1000毫秒执行一次

            tm.Tick += new EventHandler(timeer_Tick); //设置 timeer 运行事件

            tm.Start(); // 启用 timeer

        }

        private void timeer_Tick(object sender, EventArgs e)

        {

            timeS += 1; //秒数 +1 

            ts = new TimeSpan(0, 0, timeS); 

            label1.Text = ts.Hours + ":" + ts.Minutes + ":" + ts.Seconds;

            

        }

        private void button2_Click(object sender, EventArgs e)

        {

            tm.Stop();

            timeS = 0;

        }

    }

}

用VB.NET制作相册

假设有三张图片在资源里，VB.NET不允许资源的名字是纯数字，假设取名Image1,Image2......

Dim Images() As System.Drawing.Bitmap = {My.Resources.Image1, My.Resources.Image2, My.Resources.Image3}

Dim CurrentImage As Integer

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

If CurrentImage 2 Then CurrentImage += 1 Else CurrentImage = 0

PictureBox1.Image = Images(CurrentImage)

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

If CurrentImage 0 Then CurrentImage -= 1 Else CurrentImage = 2

PictureBox1.Image = Images(CurrentImage)

End Sub

vb.net 制作行标尺

左边放一个专门放行数的listbox，根据右边的行数自动生成行号

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

Dim arr() = RichTextBox1.Text.Split(vbLf)

Dim str As String

str = ""

For i = 1 To arr.Length

str = str i vbCrLf

Next

RichTextBox2.Text = str

End Sub

接下来是两个listbox的同步滚动，可以参考这篇文章：

关于vb.net制作例子和vbnet lib的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。