Ваш IP адрес: 54.92.174.226
Сегодня: 15.08.2018
19:38

Скрипты, шаблоны, софт для популярных CMS. Программы для PC

Приветствуем, дорогой пользователь на сайте scripts-for-you.ru! Здесь ты найдешь множество скриптов, шаблонов, хаков, движков для популяных CMS: Ucoz, DLE, Joomla, Wordpress.
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 10 из 10
  • «
  • 1
  • 2
  • 8
  • 9
  • 10
Модератор форума: --Flora--  
Форум веб-мастеров Scripts-For-You.RU » Общение » Разное » Флуд
Флуд
AidДата: Вторник, 05.10.2010, 22:10 | Сообщение # 271
Генерал-майор
Группа: Модераторы
Сообщений: 326
Награды: 3
Репутация: 18
Статус: Offline
Quote (LoCb)

Я тут тип новенький=)

Вижу =)))
 
MarquesДата: Среда, 06.10.2010, 08:24 | Сообщение # 272
Генерал-лейтенант
Группа: Администраторы
Сообщений: 587
Награды: 4
Репутация: 14
Статус: Offline
Quote (LoCb)
Всем привет!)

здаров)


Реклама на сайте
Серивисы сайта scripts-for-you.ru
Как скачать БЕСПЛАТНО с Letitbit.net и с up-file.com
Как скачать БЕСПЛАТНО с depositfiles.com
Прочие мануалы по скачиванию файлов
Удача Благоволит Храбрым! (с)
 
WINDДата: Среда, 15.12.2010, 02:49 | Сообщение # 273
Полковник
Группа: Администраторы
Сообщений: 223
Награды: 1
Репутация: 8
Статус: Offline
Code
Public Class Form1
       
       Dim x, y, h, w, count As Single
       Dim g As Graphics

       Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
           If e.Button = MouseButtons.Left Then
               If count = 1 Then
                   x = e.X
                   y = e.Y
                   count = 2
               Else
                   If e.X > x And e.Y > y Then
                       w = e.X - x
                       h = e.Y - y
                       g.DrawRectangle(Pens.Red, x, y, w, h)
                   End If
                   If e.X < x And e.Y < y Then
                       w = x - e.X
                       h = y - e.Y
                       g.DrawRectangle(Pens.Red, e.X, e.Y, w, h)
                   End If
                   If e.X > x And e.Y < y Then
                       w = e.X - x
                       h = y - e.Y
                       g.DrawRectangle(Pens.Red, x, e.Y, w, h)
                   End If
                   If e.X < x And e.Y > y Then
                       w = x - e.X
                       h = e.Y - y
                       g.DrawRectangle(Pens.Red, e.X, y, w, h)
                   End If
                   count = 1
               End If
           End If
       End Sub

       Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
           g = PictureBox1.CreateGraphics()
           PictureBox1.BackColor = Color.White
           PictureBox1.Cursor = Cursors.Cross
           count = 1
       End Sub
End Class

Делалось в Visual Studio 2005
 
WINDДата: Пятница, 04.05.2012, 21:03 | Сообщение # 274
Полковник
Группа: Администраторы
Сообщений: 223
Награды: 1
Репутация: 8
Статус: Offline
Дата последнего сообщения 15.12.2010, прям зафлудили тему happy
 
Форум веб-мастеров Scripts-For-You.RU » Общение » Разное » Флуд
  • Страница 10 из 10
  • «
  • 1
  • 2
  • 8
  • 9
  • 10
Поиск: