请教几个比较棘手的问题，请各位相助，能回答多少算多少，谢谢！！！

Question

1、在一个PictureBox内，把一副图片实现滚动显示，如图片慢慢从下面出来，就是那种上升的感觉，主要是在图片上面超出PictureBox上部范围后，需要把被挡住的部分从下面出来，如此循环显示......
2、如何在VB的安装程序中实现添加桌面快捷方式？如何实现安装完毕后把程序放入“启动”栏中，即实现下次开机时该程序自动运行的效果？
3、WebBrowser控件是否可以显示本地硬盘中指定的某个html文件？
4、WebBrowser控件在显示WWW网址时是否可以避免弹出网站的那些广告小窗口？各位如果知道其中哪个问题的解决方法，请指点一下，谢谢！！！

Answer 1

1　两个IMAGE，一个放到另一个中去。然后移动就可以了
2　是一个rundll32操作，你可以查一下rundll32操作
3　指定其URL为那个文件就可以了
4　检测URL中是否有AD等字符，如果有则关闭那个窗口

Answer 2

1.  用 Timer 事件
   Private sub Form_Load()
       Picture1.ScaleMode = 3
       Picture2.Picture = LoadPicture(你的圖片)
       Timer1.Enabled = True
   End Sub
   
   Private Sub Timer1_Timer()
       For k = 0 To Picture2.Height
          Picture2.Top = 0 - Picture2.Height
       Next
   End Sub

Answer 3

1.用两个image，用timer判断
2.RegOpenKeyEx HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", Zero, KEY_ALL_ACCESS, hkey
CreateNewKey "程序名字", hkey
SetKeyValue HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "程序名字", "路径+文件名", REG_SZ3.web1.Navigate2 (App.Path & "\temp.htm")
4.Private Sub web1_NewWindow2(ppDisp As Object, Cancel As Boolean)
      Cancel = True
  End Sub

Answer 4

1.pciturecox 中放两个image,高度和picturebox相同，上下紧贴排列，显示同一张图片。用记时器向上移就可以了。
2.？？？可以用其他的打包软件实现，
3.可以
4.不可以，但应该可以通过程序控制。

Answer 5

1.同意Suron128(辰龍) 兄，用Timer就可以实现。
2。在VB的安装程序中实现添加桌面快捷方式，我建议您使用SetupFactory这个打包软件，可以很好的做到。
   至于实现安装完毕后把程序放入“启动”栏中，即实现下次开机时该程序自动运行的效果， 我是这样做的，请您参考：Text1.LinkTopic = "Progman|Progman"
Text1.LinkMode = 2 '手动
Text1.LinkExecute "[ShowGroup(启动, 4)]"
Text1.LinkExecute "[AddItem(可执行文件完整路径, 捷径名称)]"
假设想把“c:\vb5db\myprog.exe”建立成“启动”资料夹名称为“我的程序”的捷径，则最后一行的 LinkExecute 应该如下：
Text1.LinkExecute "[AddItem(c:\vb5db\myprog.exe, 我的程序)]"3。WebBrowser控件可以显示本地硬盘中指定的某个html文件，很容易的。
4。WebBrowser控件在显示WWW网址时 不可以避免弹出网站广告小窗口，如果您想做到这一点，需要自己编写代码，判断那些是探出窗口，如果是的话，再加入相关智能判断是否是新开网页等等。

Answer 6

谢谢各位的意见！！！
目前主要是第二个问题比较棘手：
2、如何在VB的程序中实现添加桌面快捷方式？如何实现把程序放入“启动”栏中，即实现下次开机时该程序自动运行的效果？我想知道一个普通的VB程序中能否通过代码实现这个？而不是用其他安装工具之类的......

Answer 7

James0001(See-Plus-Plus) :
请指点具体做法，谢谢！

Answer 8

完全可以用VB自带的安装包来实现程序的自动运行，在打包的过程中把“启动菜单项”下的“START MENU”下的“PROGRAM” 目录下的文件名改为“启动”就行了。

Answer 9

用PictureBox的PaintPicture方法显示图片，既方便又省资源，可以指定将源图的指定部位显示到PictureBox的指定部位。需要把PictureBox的AutoRedraw属性设为True

Answer 10

对用timer和两个image 可以实现第一个问题...

Answer 11

Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long 
Sub Command1_Click()
Dim lReturn As Long
'添加到桌面
lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")
'添加到程序组
lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:\windows\calc.exe", "")
'添加到启动组
lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\calc.exe", "")
End Sub

Answer 12

alicky(周松) :
没有这个文件：STKIT432.DLL
我用的是VB6+W2K，拜托................

Answer 13

用DDE实现的例子：如何实现在桌面上添加程序的快捷方式？
　假如程序为C:\Program Files\MyProg\Prog.exe，需加参数/Para　 新键一个项目，添加命令按钮和标签各一个，把下面的代码加上去，一运行，你将如愿以偿！
Option ExplicitPrivate Sub Command1_Click()　 CreateGroup "MyProg", "", "", 2, True　 CreateGroup "MyProg", "C:\ProgramFiles\MyProg\Prog.exe/Para", _　 "Para", 3, TrueEnd SubSub CreateGroup(ByVal strGroup As String, ByVal strCmd As String, ByVal _strTitle As String, ByVal intDDE As Integer, ByVal fLog As Boolean)　 Const strCOMMA$ = ","　 Const strRESTORE$ = ", 1)]"　 Const strACTIVATE$ = ", 5)]"　 Const strENDCMD$ = ")]"　 Const strSHOWGRP$ = "[ShowGroup("　 Const strADDGRP$ = "[CreateGroup("　 Const strREPLITEM$ = "[ReplaceItem("　 Const strADDITEM$ = "[AddItem("
　 Dim i As Integer　 Dim Sourcefile As String, Destinationfile As String
　 Form1.Label1.LinkMode = 0　 For i% = 1 To 20　　 On Error Resume Next　　 Form1.Label1.LinkTopic = "PROGMAN|PROGMAN" '设置发送端应用程序和主题　　 If Err = 0 Then Exit For　　 DoEvents　 Next　 Form1.Label1.LinkMode = 2 '采用手动方式建立连接　 For i% = 1 To 10　　 DoEvents　 Next　 Form1.Label1.LinkTimeout = 100 '设置等待 DDE 响应消息的时间。
　 If Err = 0 Then　　 Select Case intDDE　　　　 Case 1 '建立程序项　　　　　 Form1.Label1.LinkExecute strADDGRP & strGroup & strENDCMD　　　　　 Form1.Label1.LinkExecute strADDITEM & strCmd & strCOMMA & _　　　　　　　 strTitle & String$(3, strCOMMA) & strENDCMD　　　　 Case 2 '建立程序组　　　　　 Form1.Label1.LinkExecute strADDGRP & strGroup & strENDCMD　　　　　 Form1.Label1.LinkExecute strSHOWGRP & strGroup & strRESTORE　　　　 Case 3 '建立程序项，并复制一份添加到桌面　　　　　 Form1.Label1.LinkExecute strADDGRP & strGroup & strENDCMD　　　　　 Form1.Label1.LinkExecute strADDITEM & strCmd & strCOMMA & _　　　　　　　 strTitle & String$(3, strCOMMA) & strENDCMD　　　　　 Sourcefile = "C:\WINDOWS\Start Menu\Programs\" & strGroup & _　　　　　　　 "\" & strTitle & ".lnk" ' 指定源文件名。　　　　　 Destinationfile = "C:\WINDOWS\DESKTOP\" & strTitle & ".lnk" 　　　　　　　　　　　　　　　　 '指定目的文件名。　　　　　 FileCopy Sourcefile, Destinationfile　　 End Select　 End If
　 '断开DDE联接　 Form1.Label1.LinkMode = 0　 Form1.Label1.LinkTopic = ""End Sub

Answer 14

如何使安装程序在桌面上建立快捷方式Visual Basic - 制作安装程序Ｑ 张业红: 
    win98(中文） 
    vb6.0（中文企业版） 
    安装时，用vb自己的展开与打包向导，不知道怎么让程序在桌面上放一个快捷方式。 Ａ回答:     VB展开与打包向导生成的安装程序的工作步骤是这样的：先运行Setup.exe，这个程序将VB的运行库安装到用户的机器上，然后再调用Setup1.exe。Setup1.exe是由VB写的(正是这个原因所以要先安装VB的运行库)，其源程序可以在VB98\Wizards\PDWizard\Setup1中找到。所以如果你对VB的安装程序不满，就可以直接修改Setup1.vbp。对于你的问题，在VB中可以打开Setup1.vbp，然后修改Setup1.frm的Form_Load事件，在其中可以找到如下几行： 
     ' 
     ' Create program icons (or links, i.e. shortcuts). 
     ' 
     If (fMainGroupWasCreated = True) Or ((cIcons > 0) And TreatAsWin95()) Then 
     ShowStaticMessageDialog ResolveResString(resPROGMAN) 
     CreateIcons gsICONGROUP 
     ' 
     ' Do the same for other sections in SETUP.LST if you've added your own. 
     ' 
     'CreateIcons "MySection" 
     'CreateIcons "MyOtherSection" 
     ' 
     End If 
     
     
    在If.. End If中加上： 
    （VB 5.0中） 
    OSfCreateShellLink "..\..\Desktop", _ 
     "我的程序", gstrDIR_DEST + "MyProg.exe", "" 
    （VB 6.0中） 
    OSfCreateShellLink "..\..\Desktop", _ 
     "我的程序", gstrDIR_DEST + "MyProg.exe", "", True, "$(Programs)" 
    重新编译Setup1.vbp，用Setup1.exe替换原来的Setup1.exe即可。 此问题由李海回答。 

Answer 15

rainstormmaster(rainstormmaster)：
大老们，你们自己试过了吗？
"..\..\Desktop",这个写法适合Windows 2000吗？我怎么看着象Win98的写法呢？
我用了，没有效果啊。。

Answer 16

rainstormmaster(rainstormmaster)同志的第一次回答是在‘开始’中建立快捷方式，并未告诉楼主‘如何在桌面建立快捷方式’。
    rainstormmaster(rainstormmaster)同志在开始’中建立快捷方式也不可用，能否解释以下LABEL1的作用。