У меня вопросы...

[Creator*]

2 вопроса:

1. В форме находится TabStrip, который переключает PictureBox'ы
Мне нужно сделать переключение еще и из пунктов меню. Подскажите как...

2. Как получить путь к программе в ДОС-формате?

Заранее всем спасибо.

[RayShade]

Переключение между табами:

TabStrip.Tabs(tabindex).Selected = True



tabindex - Это номер таба, который надо активировать.



Путь к программе - App.Path

[alibek]

Вообще-то он спрашивал совсем о другом.
Переключать меню так же, как и PictureBox, т.е. одни менюшки делаешь невидимыми, другие видимыми.
А путь программы в формате 8.3 встроенными средствами VB никак не получишь, только используя API GetShortPathName

[Creator*]

GetShortPathName?

А что это такое и где его взять?

[Cyrax]

GetShortPathName?

А что это такое и где его взять?

это API-функция такая.
вот тебе пример из API-Guide

Код: Выделить всё

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
Public Function GetShortPath(strFileName As String) As String
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim lngRes As Long, strPath As String
    'Create a buffer
    strPath = String$(165, 0)
    'retrieve the short pathname
    lngRes = GetShortPathName(strFileName, strPath, 164)
    'remove all unnecessary chr$(0)'s
    GetShortPath = Left$(strPath, lngRes)
End Function
Private Sub Form_Load()
    MsgBox GetShortPath("c:\Program Files")
End Sub

сам API-Guide лежит тут