VBA - Visual Basic 2008

[Admiral]

Узнать номер символа в строчке, которая например, располагается в TextBox1: малого регистра (vbLowerCase) и большого (vbUpperCase) можно так



Код:

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

Format(TextBox1.Text, vbLowerCase)
Format(TextBox1.Text, vbUpperCase)

Что б привести всю строку к малому или большому регистру нужно писать так



Код:

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

TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.Lowercase)
TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.Uppercase)

Немного из истории

функции Format

в VB6.

[Uzvern]

Admiral, а где можно почитать про все функции

Код:

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

Vb*****

Желательно на советском языке.

[Delirium]

Delirium, ты мне коды пишешь, а мне нужен компонет, который можно выбрать на панели инструментов и положить его на форму. (.NET Framework 3.5) - может 2.0 выбрать?

[Delirium]

Admiral, зачем вам MSDN, такое впечатление, что все ссылки и остальное в голове держишь

[Delirium]

Delirium попросили на русском, вот как раз ссылку с одного ресурса программистов и дал, а вторая даёт в удобной форме представление. А так конечно, всё, кроме недокументированных возможностей, можно найти в MSDN. А ссылки, если что, можно всегда вспомнить через поисковик...

[alexa___]

Помогите пожалуйста.

Нужно на форме разместить фрейм с вертикальной прокруткой, чтобы на нем можно было разместить несколько изображений. Как это можно сделать?

[Delirium]

alexa___, вы имеете в виду веб приложение или VBA?

[Delirium]

Delirium, обычное оконное приложение. Вот незнаю каким компонентом сделать.

[Uzvern]

alexa___, если я правильно понял, то будет что-то типо этого (ток над кодом надо ещё немного подшаманить) :



Код:

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

Public Class Form1
    Private VSB As New VScrollBar
    Private PB As PictureBox
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Controls.Add(VSB)
        AddHandler VSB.Scroll, AddressOf VSB_Scroll
        VSB.Dock = DockStyle.Right
        For PBI As Integer = 0 To 3
            Dim PB As New PictureBox
            PB.Size = New Size(100, 100)
            PB.Image = PB.ErrorImage
            PB.Location = New Point(100, PB.Location.Y + 100 + PBI * 100)
            Controls.Add(PB)
        Next
    End Sub
    Private Sub VSB_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)
        If Not VSB.Value = 0 And Not VSB.Value = 91 Then
            For Each CE In Controls
                If TypeOf CE Is PictureBox Then
                    PB = CE
                    If e.OldValue > e.NewValue Then
                        PB.Location = New Point(PB.Location.X, PB.Location.Y + e.NewValue + e.OldValue)
                    Else
                        PB.Location = New Point(PB.Location.X, PB.Location.Y - e.NewValue - e.OldValue)
                    End If
                End If
            Next
        End If
    End Sub
End Class

[alexa___]

Uzvern, Спасибо, но не то наверное. Мне ненужен код.

Нужен инструмент (компонент), с помощью которого можно сделать.

Необходимо поле с прокруткой на котором можно расположить другие объекты, всего лишь.