Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






  • Как продвинуть сайт на первые места?
    Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
    Ускорение продвижения
    Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.
    Начать продвижение сайта
  • Делаем простой графический редактор






    Наш графический редактор будет уметь:

    1. изменять размер мазка
    2. настраивать цвет
    3. очищать графическое поле

    Разместим на форме PictureBox, TextBox с атрибутом Text = 8, подключаем Common Dialog, даём ему имя dlg, и две кнопки с надписями Цвет и Очистить.

    Пишем код:

    Private Sub Command1_Click() With dlg.ShowColorPicture1.ForeColor =.Color End WithEnd Sub Private Sub Command2_Click()Picture1.Cls End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then intPrevX = XintPrevY = Y End IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Picture1.DrawWidth = Text1.TextPicture1.Line (intPrevX, intPrevY)-(X, Y) End If intPrevX = XintPrevY = Y End Sub

    Запускаем. В Text1 вписываем размер мазка

    Я не дописал код. Если в текстовом поле написать 0, то будет ошибка
    Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
    On Error Resume Next
    Picture1.DrawWidth = Text1.Text
    Picture1.Line (intPrevX, intPrevY)-(X, Y)
    End If
    intPrevX = X
    intPrevY = Y
    End Sub






    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.