[Uzvern]

А я нашел более простой спопсоб :

Код:

My.Computer.Keyboard.SendKeys("A")

[Admiral]

Так у меня та же команда SendKeys, только без Нейм Спейса. А кратко как в VB6м.
И куда одна строчка кода отправит в этом случаи клавишу "A"? В активное окно, которое пользователь выберет?

[Uzvern]

Да. Ток щас ещё один вопрос возник : как сделать чтобы он отправлял не только буквы, но и нажатия клавишь "Ctrl", "Alt" и т.д. как это сделать?

[Admiral]

Писать аргумент функции SendKeys.SendWait нужно в таком виде "{Ctrl}", "{Alt"}" Ctrl - "^", Alt - "%".
Вот так нажмём Enter
SendKeys.SendWait("{Enter}")
Можно ещё и комбинации передавать, например Ctrl+V будет так
SendKeys.SendWait(^V)
По остальным комбинациям нужно смотреть их терминальные символы аналоги.

[Uzvern]

Чет не хочет он {Ctrl} воспринимать

[Admiral]

Uzvern, А что вообще прога должна делать при Ctrl? Это часть команды в основном. Да это я чёто уже не то пишу, писал по аналогии с Enter.
Правильно Ctrl как ^, а Alt как %
Что б ничего не напутать в будущем, вот стоит почитать SendKeys Class

[Uzvern]

Фух...все-таки я добил его и понял как отменять заверытие формы.

Код:

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim ms
        ms = MsgBox("Выйти из программы?", MsgBoxStyle.YesNo, "Выйти?")
        If ms = MsgBoxResult.No Then
            e.Cancel = True
        End If
    End Sub

[Admiral]

Красиво, со вкусом.

Как отпределить : файл или папка post=805673]»[/post]

Я тут одну старую програмулину на VB6м исправлял и нашёл достаточно толковый код по вопросу.

Код:

Function FileOrDirectory(ByVal Path As String) As String
        If Dir(Path, FileAttribute.Directory) <> "" Then
            Return "Directory"
        Else
            Return "File"
        End If
End Function

Только что проверил. Работает и в VB.NET 2008м, изменив на новую константу FileAttribute.Directory вместо VB6й vbDirectory.
Я оформил в виде функции, использовать её можно так
MsgBox(FileOrDirectory("C:\Program Files\")
MsgBox(FileOrDirectory("C:\boot.ini")
Да и любые пути и файлы, впрочем Uzvern ещё тогда вокруг да около возле нужных команд шёл разговор

Dir("C:\Program Files\") - выводит "Это папка", если Dir("C:\boot.ini") - выводит "Это файл". »

[Uzvern]

1. Как можно сделать чтобы программа начинала поиск не с певого симола, а с символа последнего найденого слова ?

Например у мнея 3 слов : "String String String" их может быть сколько угодно.
Необходимо сделать чтобы она искала слово : "String". И чтобы можно было выполнять операцию вниз и вверх (вперед, назад).

2. Как создать папку?

[Uzvern]

Всем спасибо. С поиском разобрался, только пока что он работет только в одну сторону :

Код:

Public Class Form1
    Dim FindingString As String = "asdgfsdfgsdfgsdfgStringsdfgsdfgsdfgStringsdfgsdfgsdfgString"
    Dim FindString As String = "String"
    Dim FirstTemp As String = ""
    Dim SecondTemp As String = ""
    Dim ValidateTemp As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ValidateTemp = 0 Then
            ValidateTemp = 1
            FirstTemp = FindingString
            SecondTemp = Mid(FirstTemp, InStr(FirstTemp, FindString))
            FirstTemp = SecondTemp
            MsgBox(FirstTemp)
        Else
            SecondTemp = Mid(FirstTemp, InStr(FirstTemp, FindString) + Len(FindString))
            FirstTemp = SecondTemp
            SecondTemp = Mid(FirstTemp, InStr(FirstTemp, FindString))
            FirstTemp = SecondTemp
            MsgBox(FirstTemp)
        End If
    End Sub
End Class

Думал не допру как сделать, но бошка походу варит если сделал.


С созданием папок тоже разобрался (Правда приходится создавать через cmd) :

Код:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Shell("cmd /C MD C:\123", AppWinStyle.Hide)
        End
    End Sub
End Class