vb 建立一个桌面图标

Private Sub Command1_Click()

Dim nPath As String, sh As Object, ShortCut As Object

    Set sh = CreateObject("WScript.Shell")

    '获取桌面路径

    nPath = sh.SpecialFolders("Desktop")

    '创建一个快捷方式对象

    Set ShortCut = sh.CreateShortcut(nPath & "\电子小说阅览器.lnk")

    ShortCut.TargetPath = "D:\StoryView.exe"  '快捷方式指向的目标

    ShortCut.WorkingDirectory = "D:\"

    ShortCut.Save

End Sub

1，在桌面上，鼠标左键双击程序，打开VB编程软件，在左边工具栏上，单击【Label】按钮，在Form1窗口上绘制出两标签，用来写文字的说明。在这里写上用户名和密码，如下图所示。

2，接着，根据窗口的大小，感觉文字小了，可以在Label属性窗口上，修改Font属性值，单击其选择按钮就可以更改字体的大小了，如下图所示。

3，然后，在d出的字体对话框中，选择四号字的大小，单击【确定】按钮后，就可看到Form1窗口上用户名的字体变大了。密码的字体大小也如此 *** 作，如下图所示。

4，接着，在程序左边工具栏上，单击【TextBox】按钮，在Form1窗口上绘制出两文本框，并在TextBox属性面板上，修改Text的值，将其清空，如下图所示。

5，然后，在程序左边工具栏上，单击【CommandButton】按钮，在Form1窗口上绘制出两命令按钮在其属性面板上，将Caption的值改为确定。另一个改为取消，如下图所示。

6，最后，在程序左边工具栏上，单击【Image】按钮，在Form1窗口上绘制出两图框，并修改其两处属性值，如图所示，选取两个图标后，将它们重新布局的更好看些后，单击运行，登录窗口就出现了，如下图所示。

1、新建一个标准工程，在窗体添加两个窗体，使用默认名（这里默认可以自己更改），第一个窗体caption属性更改为“用户登录”，第二个窗口caption属性改为“”空格，在第一个窗口添加两个label控件，名称分别改为“用户名：”“密码”（这里右边属性表passwordchar添加“*”）borderstyle分别选择3，两个commandbox空间，caption属性分别改为“登录”“退出”

主要程序添加，这里代码在图片里

2、在第二窗口添加两个label,一个commandbox控件，label的caption属性分别改为“用户成功登录，欢迎使用”，“声明：纯属个人爱好与学习，切勿商业使用”；commandboxe控件caption属性改为“退出”主要代码在图片里

3、点击菜单栏“启动”输入“用户名”“密码”，即可登录，登录界面就这样制作完成了，很简单，希望大家多揣摩，开发出更好程序

vb创建快捷方式有以下几种方法：

1、用fCreateShellLink函数，此方法用户电脑必须有STKIT432.DLL文件。

Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName AsString, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long Sub

private Command1_Click()

Dim lReturn As Long

lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")

End Sub

2、比较常用的是用WshShell对象创建快捷方式，此方法依赖\system32\WSHom.Ocx文件，部分电脑可能关闭了此文件权限，所以用的时候可根据错误，自动注册该组件

Dim nPath As String, sh, ShortCut

on error resume next

Set sh = CreateObject("wscript.shell")

If Err = 429 Then'判断用户电脑是否禁用了WshShell，如果禁用重新注册这个组件

Dim oca As String

oca = Environ("Windir") &"\system32\WSHom.Ocx"

If Dir(oca) = "" Then Exit Function

Shell "regsvr32 """ &oca &""" /s"

Err = 0

Set sh = CreateObject("wscript.shell")

End If

nPath = sh.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop")'获取当前用户的桌面目录

If Right(nPath, 1) <>"" Then nPath = nPath &"\"

ShortF = nPath &"文本文档.lnk"

Set ShortCut = sh.CreateShortcut(ShortF) '开始创建快捷方式对象

ShortCut.TargetPath = "C:\123.exe" '快捷方式指向的目标文件，写完整路径

ShortCut.Save

3、自己写快捷方式创建控件。此方法代码比较繁琐，网上也有相关实例代码，也是可以参考的一种方式。

---