[Admiral]

А что подразумевается под словом "консоль"? При написании консольных приложений или выдирать значения, которые попадают в системную консоль?
Для консольного приложения есть команда Console.ReadLine, входящая в семейство Console Methods Другой пример для консольного приложения в теме C#.NET&&обработка нажатия клавиш
Для выдирание их системной консоли, наверное понадобится написать какой-то хук.

[maximliss]

Подскажите новичку в VB,Есть форма на ней PictureBox и CommandButton,как при клике загрузить файл GIF или JPEG с интернета?Как я понимаю,его сначало нужно загрузить на диск?и потом отобразить в PictureBox или я не прав?Как все это сделать пока не знаю!Помогите.

[Admiral]

Нужный код размещён в посте №76, полный код для кнопки будет следующим.

Код:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PictureBox1.Load("http://forum.oszone.net/images/avatars/another/085x.gif")
    End Sub

На будущие стоит пользоваться поиском в теме

[maximliss]

Выдает ошибку "end statement" - Handles- выделяет.если я не ошибаюсь это из Visual Basic .NET?
пост № 76 не помог,наверняка я что то делаю не правильно....(((

[Admiral]

maximliss, ОК, вот полный код

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click PictureBox1.Load("http://forum.oszone.net/images/avatars/another/085x.gif") End Sub End Class

если ошибка повторится и/или будет другая, то к следующему посту стоит прикрепит проэкт в архиве или только сам файл Form1.vb

[maximliss]

спасибо за помощь,сейчас буду разбиратся

[Uzvern]

А что подразумевается под словом "консоль"? При написании консольных приложений или выдирать значения, которые попадают в системную консоль? Для консольного приложения есть команда Console.ReadLine, входящая в семейство Console Methods Другой пример для консольного приложения в теме C#.NET&&обработка нажатия клавиш Для выдирание их системной консоли, наверное понадобится написать какой-то хук. »

ну добавленое с помощью

Код:

Debug.Print("")

[Admiral]

Оно добавляется только в среде, отдельный ехе бинарник ничего не постит и не консоль это вовсе. Ничто не мешает использовать переменную в качестве вывода, тогда её значение не потребуется выцеплять.

[Uzvern]

Как можно получить список интеренет соединений и по возможности запустить выбраное (например если добавлено в ListBox)

Можно ли как-то подгрузить картинку в текстовое поле (RichTextBox), например : "Тут идет текст, а тут (картинка)" Типа как подгружаются смайлики в асе

Как в RichTextBox сделать, чтобы каждое слово начиналось с заглавной буквы, а все последующие строчные?
Подразумеваю, что это делает Trim, но как это реализовать не знаю.

[Admiral]

Disabling network connection using vb.net 2005

Для VB6 проще было Insert a picture into a RichTextBox control, статью стоит взять на вооружения может удастца перевести на VB.NET до конца, текущий VB.NET

вариант не хочет фуричить

Код:

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long
    Private Const WM_PASTE = &H302
    Sub InsertPictureInRichTextBox(ByVal RTB As RichTextBox, ByVal Picture As Image)
        ' copy into the clipboard
        ' Copy the picture into the clipboard.
        Clipboard.Clear()
        Clipboard.SetImage(Picture)
        ' paste into the RichTextBox control 
        SendMessage(RTB.Handle, WM_PASTE, 0, 0)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        InsertPictureInRichTextBox(RichTextBox1, Image.FromFile("c:\winnt\coffee bean.bmp"))
    End Sub

В помощь VB.NET приходит технология OLE Inserting images into a RichTextBox control (the OLE way)
adding a picture in a RichTextBox

Код:

    Dim wordstart As Integer
    Dim wordend As Integer
    Private Sub RichTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyUp
        If e.KeyCode = Keys.Space Then
            wordend = RichTextBox1.SelectionStart
            RichTextBox1.Select(wordstart, wordend - wordstart)
            RichTextBox1.SelectedText = TitleCase(RichTextBox1.SelectedText)
            RichTextBox1.SelectionStart = wordend
            wordstart = wordend
        End If
    End Sub
    Friend Shared Function TitleCase(ByVal unformattedString As String) As String
        Dim myTI As System.Globalization.TextInfo = New System.Globalization.CultureInfo("en-US", False).TextInfo
        Return myTI.ToTitleCase(unformattedString)
    End Function

How to convert to uppercase
http://www.vbdotnetforums.com/showthread.php?t=7150