VB 高手帮忙解决下问题

Dim ins, kuozhan As String

 

Private Sub Combo1_Click()
File1.Pattern = Mid$(Combo1.Text, 19)
End Sub

Private Sub Command1_Click()
 dkyx (1)
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_DblClick()
 dkyx (1)
End Sub

Private Sub Form_Load()
 Drive1.Drive = "c:\"

 ins = "所有文件(*.*)"
 Combo1.AddItem ins + Space(18 - Len(ins)) + "*.*", 0

 ins = "可执行文件(*.exe)"
 Combo1.AddItem ins + Space(18 - Len(ins)) + "*.exe", 1

 ins = "JPG图像文件(*.jpg)"
 Combo1.AddItem ins + Space(18 - Len(ins)) + "*.jpg", 2

 ins = "文本文件(*.txt)"
 Combo1.AddItem ins + Space(18 - Len(ins)) + "*.txt", 3
 
 ins = "mp3文件(*.mp3)"
 Combo1.AddItem ins + Space(18 - Len(ins)) + "*.mp3", 4
 Combo1.ListIndex = 0
 
End Sub

Public Function dkyx(ByVal n As Integer)
 kuozhan = StrConv(Right$(File1.FileName, 3), vbLowerCase)
 If kuozhan = "exe" Then
   f1 = Shell(File1.Path + "\" + File1.FileName, 1)
 End If
 
 If kuozhan = "txt" Then
  Print File1.Path, File1.FileName
  f1 = Shell("notepad.exe" + " " + File1.Path + "\" + File1.FileName, 1)
 End If
 
 If kuozhan = "jpg" Then
  f1 = Shell("mspaint.exe" + "" + File1.Path + "\" + File1.FileName, 1)
 End If
 
 If kuozhan = "mp3" Then
  f1 = Shell("D:\Program Files\KuGou\KuGou2010\KuGoo.exe" + " " + File1.Path + "\" + File1.FileName, 1)
 End If
 
End Function

 

 

帮我看看这个多媒体浏览器 只能打开exe 的文件其他的都打不开

 

Public Function dkyx(ByVal n As Integer)
 kuozhan = StrConv(Right$(File1.FileName, 3), vbLowerCase)
 If kuozhan = "exe" Then
   f1 = Shell(File1.Path + "\" + File1.FileName, 1)
 End If
 
 If kuozhan = "txt" Then
  Print File1.Path, File1.FileName
  f1 = Shell("notepad.exe" + " " + File1.Path + "\" + File1.FileName, 1)
 End If
 
 If kuozhan = "jpg" Then
  f1 = Shell("mspaint.exe" + "" + File1.Path + "\" + File1.FileName, 1)
 End If
 
 If kuozhan = "mp3" Then
  f1 = Shell("D:\Program Files\KuGou\KuGou2010\KuGoo.exe" + " " + File1.Path + "\" + File1.FileName, 1)
 End If
 
End Function

主要就是上面这段 有高手帮解决下没 小弟在这谢谢啦

既然小方框的边为纯黑色，那么还是比较好找出小方框的位置的。 假设小方框的大小是不变的(我不知道是否会变，长为a,宽为b,单位pt) 1，通过api取点的颜色。2，因为只找左右的两条边，所以从上到下跳越式的搜索(步长<=小方框的宽度b)3，每跳一下，就从左至右的逐像素的搜索，如果找到黑色的点，就上下连续搜索一定数量的点 如果全部为黑色，则证明是一条黑线，说明找到了左边，在左边的基本上，加上宽度，就是右边了。 在此右边还可以用来校验搜索的结果是否正确。4，找到了左右两条边的位置，剩下的就设置你的竖线的位置。 下面给出大体上的代码： GetPixel函数是获取设备指定点颜色值的。 for y = 0 to yMax step b-1for x=0 to xMax if GetPixel(hdc,x,y) =vbBlack then '向上搜索一定数量的点,判断是否全部为黑色 '......... '向下搜索一定数量的点,判断是否全部为黑色 '......... end ifnextnext