Visual Basic 2008

[Admiral]

А что подразумевается под словом "консоль"? При написании консольных приложений или выдирать значения, которые попадают в системную консоль?
Для консольного приложения есть команда Console.ReadLine, входящая в семейство Console Methods (http://msdn.microsoft.com/en-us/library/system.console_methods.aspx) Другой пример для консольного приложения в теме C#.NET&&обработка нажатия клавиш (http://forum.oszone.net/thread-73318.html)
Для выдирание их системной консоли, наверное понадобится написать какой-то хук.

[maximliss]

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

[Admiral]

Нужный код размещён в посте №76 (http://forum.oszone.net/post-809308.html#post809308), полный код для кнопки будет следующим.
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
На будущие стоит пользоваться поиском в теме
http://img.photobucket.com/albums/v121/Vadikan/Screenshots/search_topic.png

[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), например : "Тут идет текст, а тут http://forum.oszone.net/images/statusicon/user_online.gif (картинка)" Типа как подгружаются смайлики в асе

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

[Admiral]

Disabling network connection using vb.net 2005 (http://forums.msdn.microsoft.com/it-IT/vbide/thread/6d1c311f-7203-44b6-b92c-d2988f66dc16/)

Для VB6 проще было Insert a picture into a RichTextBox control (http://www.devx.com/vb2themax/Tip/18593), статью стоит взять на вооружения может удастца перевести на 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) (http://www.codeproject.com/KB/edit/MyExtRichTextBox.aspx)
adding a picture in a RichTextBox (http://www.codeguru.com/forum/archive/index.php/t-239578.html)


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://forums.msdn.microsoft.com/cs-CZ/vblanguage/thread/dec7fe37-dab8-482f-8b7a-660bc9ab2ecd/)
http://www.vbdotnetforums.com/showthread.php?t=7150

[Uzvern]

Как можно сделать корректное отображение символов в RichTextBox?
http://i34.tinypic.com/e9hoxk.png подгружаю текст из файла ивот такая беда

Как полусить SubItems значение выделеного элемента ?
Сделал так :
ListView1.SelectedItems.Item(0).SubItems.Item(1).Text
Помогло :)

[Admiral]

Сохранять файл в кодировке Юникод (Unicode) и будет всё ОК
http://i33.tinypic.com/24e51j7.png

[Uzvern]

Сделал липкое окно
Sub SW(ByVal Pixels As Integer)
Dim SH = Screen.PrimaryScreen.WorkingArea.Height
Dim SW = Screen.PrimaryScreen.WorkingArea.Width

Dim MAH = Me.Location.Y + Me.Height
Dim MAW = Me.Location.X + Me.Width

'Верхняя строна
If Me.Location.Y - Pixels <= Pixels And Me.Location.Y + Pixels > 0 - Pixels Then
Me.Location = New Point(Me.Location.X, 0)
End If
'/Верхняя строна

'Нижняя сторона
If SH - MAH <= Pixels And SH - MAH + Pixels > 0 - Pixels Then
Me.Location = New Point(Me.Location.X, SH - Me.Height)
End If
'/Нижняя сторона

'Правая сторона
If SW - MAW <= Pixels And SW - MAW + Pixels > 0 - Pixels Then
Me.Location = New Point(SW - Me.Width, Me.Location.Y)
End If
'/Правая сторона

'Левая сторона
If Me.Location.X - Pixels <= Pixels And Me.Location.X + Pixels > 0 - Pixels Then
Me.Location = New Point(0, Me.Location.Y)
End If
'/Левая

End Sub

Как то можно убрать потрясывания во время "приклеивания окна"?

Юникод (Unicode) и будет всё ОК »
Как можно перекодировать файл при помощи VB?

[Admiral]

Возможно через таймер дать плавный переход по координатам?
Я имел ввиду в блокноте пересохранить текстовый файл как Юникод.
http://forum.iopus.com/_uploads/unicode-support-utf16.png
В проекте всё правильно считывает из тхт файла.
Если так интересно тогда вот Конвертация ANSI to UNICODE (или UTF) (http://forum.vingrad.ru/forum/topic-193340/kw-кодировка-конвертация-ansi.html)

[Uzvern]

Как в одном окне можно создать ещё одно?

[Admiral]

Это называется MDI интерфейс.
Creating Multiple-Document Interface (MDI) Applications (http://www.exforsys.com/tutorials/vb.net-2005/creating-multiple-document-interface-mdi-applications.html)

[Uzvern]

Admiral, чет у меня с кодом косяк какой-то.

Dim ch1 As New Child1
Dim ch2 As New Child2

Child(х) подчеркивает

Вопрос решен. Моя тупость.

А можно как-то цвет поменять? С серого на белый например?!

[Admiral]

Да.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetBackGroundColorOfMDIForm()
End Sub
Private Sub SetBackGroundColorOfMDIForm()
Dim ctl As Control

' Loop through controls,
' looking for controls of MdiClient type.
For Each ctl In Me.Controls
If TypeOf (ctl) Is MdiClient Then

' If the control is the correct type,
' change the color.
ctl.BackColor = System.Drawing.Color.White
End If
Next
End Sub
Form.IsMdiContainer Property (http://msdn.microsoft.com/en-us/library/system.windows.forms.form.ismdicontainer.aspx)

[Uzvern]

Как можно автоматичски добавлять действия, например :
Public Class Form1

Dim TabControl As New TabControl
Dim Num As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Controls.Add(TabControl)
Me.TabControl.Dock = DockStyle.Fill
Me.TabControl.Multiline = True

Do Until TabControl.TabCount = 8
Num += 1
TabControl.TabPages.Add("TabPage" & Num)
Loop

For x As Integer = 0 To TabControl.TabCount - 1
Dim b As New Button
TabControl.TabPages(x).Controls.Add(b)
b.Dock = DockStyle.Bottom
b.Name = "Button" & x + 1
b.Text = b.Name
Next

End Sub
End Class

Мне необходимо сделать, чтобы при нажатии на кнопку (на каждой вкладке), вылетало сообщение с названием вкладки.

[Admiral]

Основная часть динамики уже написана, осталось приделать динамическое добавления событий и поставленная задача будет выполнена

For x As Integer = 0 To TabControl.TabCount - 1
Dim b As New Button
AddHandler b.Click, AddressOf Button_Click
REM...дальше код с предыдущего поста
Next

End Sub
REM этих строчек не было ранее, именно они отвечают за действия кнопок
Protected Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs)
If TypeOf (sender) Is Button Then ' check to make sure that the sender is actually a Button
MsgBox(TabControl.SelectedTab.Text.ToString())
End If
End Sub

Ссылки по вопросу
как узнать имя объекта вызвавшего событие? (http://forum.vingrad.ru/forum/topic-210727.html)
How to: Consume Events in a Windows Forms Application (http://msdn.microsoft.com/en-us/library/0y0987sc.aspx)
Set dynamic control's properties (http://www.neowin.net/forum/lofiversion/index.php/t580841.html)

И немного истории How To Dynamically Add Controls to a Form with Visual Basic 6.0 (http://support.microsoft.com/kb/q190670/)