|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Visual Basic 2008 |
|
VBA - Visual Basic 2008
|
Старожил Сообщения: 161 |
Профиль | Сайт | Отправить PM | Цитировать
Подскажите как сделать так : допустим, если нажать на форме правой кнопкой мыши, то вылетет MsgBox(123), а если нажать левой, то MsgBox(098).
Спасибо за внимание. >>Блин, не дописал в названии темы : Действие при нажатии правой кнопки |
|
Отправлено: 17:47, 24-04-2008 |
Старожил Сообщения: 161
|
Профиль | Сайт | Отправить PM | Цитировать Admiral, нет. это то я знаю. Я просто думал, что именно вот эту операцию .GetHashCode можно как-то перекодировать и получить ответ. Теперь понял, что нет
|
Отправлено: 01:54, 26-07-2008 | #191 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 161
|
Профиль | Сайт | Отправить PM | Цитировать Покажите примеры с Drug and Drop из Windows.
|
Отправлено: 01:19, 29-07-2008 | #192 |
Ветеран Сообщения: 3320
|
Профиль | Отправить PM | Цитировать |
Последний раз редактировалось Admiral, 29-07-2008 в 02:26. Отправлено: 02:09, 29-07-2008 | #193 |
Старожил Сообщения: 161
|
Профиль | Сайт | Отправить PM | Цитировать Как можно отфильтровать значение на определенные знаки, например : значение "1-2\3-4\5 необходимо отфильтровать по знакам " "-", "\" и т.п. , чтобы вернулось знаение "12345". Пробовал Trim, но чет он не помогает.
Пришлось писать функцию : Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Stri As String = "1-2\3-4\5" MsgBox(RemChr(Stri, "-", "\")) End End Sub Function RemChr(ByVal Text As String, ByVal ParamArray Chars() As String) As String Dim EndString As String = Text Dim TempString As String For CI As Integer = 0 To Chars.Length - 1 For TI As Integer = 0 To EndString.Length - 1 If EndString.Substring(TI, 1) <> Chars(CI) Then TempString &= EndString.Substring(TI, 1) End If Next EndString = TempString TempString = Nothing Next Return EndString End Function End Class |
Последний раз редактировалось Uzvern, 30-07-2008 в 01:57. Отправлено: 01:08, 30-07-2008 | #194 |
Ветеран Сообщения: 1404
|
Профиль | Отправить PM | Цитировать Trim не помогает, потому что он удаляет только пробелы в конце и начале. Используй класс регулярных выражений
Imports System.Text.RegularExpressions Dim RegexObj as Regex = New Regex("regularexpression"). RegexObj.IsMatch("subject") - поиск RegexObj.Replace("subject", "replacement") - замена http://www.regular-expressions.info/dotnet.html |
------- Отправлено: 09:30, 30-07-2008 | #195 |
Старожил Сообщения: 161
|
Профиль | Сайт | Отправить PM | Цитировать Как-то можно зашифровать свой проект, чтобы его нельзя было открыть например в Reflector'e?
|
Отправлено: 14:54, 30-07-2008 | #196 |
Ветеран Сообщения: 1404
|
Профиль | Отправить PM | Цитировать Чтобы скрыть содержимое от не профессионалов, можно упаковать exe. Есть много упаковщиков типа UPX, ASPProtect и т.д. Я однако точно не знаю, работают ли они с .NET файлами. Если понадобится взломать, взломают и расшифруют, тупо сделают дамп из памяти.
См. http://madebits.com/netz/ Ключевое слово "exe NET packer" |
------- Отправлено: 15:15, 30-07-2008 | #197 |
Ветеран Сообщения: 3320
|
Профиль | Отправить PM | Цитировать Виртуальная машина на страже порядка
Цитата GPcH (_www.dotfix.net) Виртуальная машина на страже порядка Хакер, номер 77(май 2005), стр. 107:
Штурм зимнего .net'а Недетское вскрытие .NET .NET секретам Добыча исходного кода приложений Карманное рукоприкладствоp->Подопытный № 1 (patch) Uzvern - mrcnn прав, если понадобится код то взломают, так что сильно усложнять программу защитой тоже не стоит: ресурсов от этого она начинает брать больше. |
|
Отправлено: 15:24, 30-07-2008 | #198 |
Старожил Сообщения: 161
|
Профиль | Сайт | Отправить PM | Цитировать Как можно включить CapsLock, чтобы это отразилось и на клавиатуре (загорелась/потухла лампочка).
заставляет её моргать, т.е. она включается и тут же выключается В чем различие между : Как можно добавлять в программу параметры для запуска? |
Последний раз редактировалось Uzvern, 30-07-2008 в 16:38. Отправлено: 15:50, 30-07-2008 | #199 |
Ветеран Сообщения: 1404
|
Профиль | Отправить PM | Цитировать http://forums.msdn.microsoft.com/en-...-a101cdfecf4e/
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 1, 0) 'включить Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 3, 0) 'отключить (или наоборот) Цитата:
http://www.devx.com/dotnet/Article/10115 http://www.devx.com/dotnet/Article/10115/0/page/2 (там еще несколько страниц) |
|
------- Последний раз редактировалось mrcnn, 30-07-2008 в 19:15. Отправлено: 18:54, 30-07-2008 | #200 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
VBA - MS Visual Basic 2008 Expres Edition файлы проекта | Anton Naumov | Программирование и базы данных | 7 | 14-05-2010 14:09 | |
VBA - Visual basic 2008 | Anton Naumov | Программирование и базы данных | 1 | 02-01-2010 22:35 | |
visual basic 6 | иоанн | Хочу все знать | 1 | 27-04-2009 18:51 | |
visual basic 6 | guma | Программирование и базы данных | 1 | 26-04-2007 20:41 | |
Visual basic | carlos | Программирование и базы данных | 1 | 04-08-2003 02:03 |
|