Таблица символов Visual Basic 2008

Тема в разделе "Другие языки", создана пользователем Nirmaww, 19 ноя 2009.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. Nirmaww

    Nirmaww Создатель

    Регистр.:
    1 июн 2009
    Сообщения:
    32
    Симпатии:
    4
    Здравствуйте.

    Мне нужно написать к понедельнику программу на Visual Basic 2008.
    Программа это таблица символов из windows которая находится в пуск...служебные-таблица символов.

    Проблем несколько:

    1) Я не знаю как сделать такую таблицу в vb. Нельзя использовать Grid, Imagelist. Что конкретно использовать listbox в нем 232 label но это маленько абсурдно...

    2) Как сделать чтоб при выборе шрифта загружались только символы этого шрифта и не было лишних ячеек в таблице, отображаться должны символы >32 до 255

    3) И самая главная задача ) как сделать чтоб когда нажимаешь на символ он увеличивался точно так же как в windows??? Есть идея использовать zoom, но так как я не знаю как и чем заполнить таблицу прогресс встал.

    Вот что я уже имею:

    Код:
    Imports System.Drawing
    Public Class Form1
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
           
            Dim fonts As FontFamily
            
            For Each fonts In System.Drawing.FontFamily.Families
                
                cmbfonts.Items.Add(fonts.Name)
            Next
            
            cmbfonts.SelectedIndex = 0
        End Sub
    
        Private Sub btclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsalir.Click
            Me.Close()
        End Sub
    End Class
    Помогите плз разобраться, идеи какие-то предложить я уже просто не знаю как это чудо изобразить можно было бы использовать Grid проблем не было бы ((( Большое спасибо...
     
  2. Nirmaww

    Nirmaww Создатель

    Регистр.:
    1 июн 2009
    Сообщения:
    32
    Симпатии:
    4
    Почти доделал, осталось сделать увел по клику.
    Может кто-то скажет как сделать zoom на label?

    ---------- Post added at 23:21 ---------- Previous post was at 21:32 ----------

    Все сделал сам. Тему можно закрывать. Кому интересно label можно увеличить таким способом. Создать новый нужных вам размеров и по клику перемещать его.
    Код:
     
            Dim coord As Point
    
            lbzoom.Text = sender.Text
            coord = sender.location
            lbzoom.Location = New Point(coord)
     
Статус темы:
Закрыта.