VBNet - Форум - И снова Notes... часть 2

Вопрос: И снова Notes... часть 2 Добавлено: 14.07.11 14:36

Автор вопроса: Daniel | Web-сайт: smallsoft.ucoz.com | ICQ: 610950440

Вот, после вчерашней первой бета-версии выкладываю вторую.

http://afc2008.narod.ru/notes/notes-beta-release-2.rar

Архив с исходным кодом, 7,12 КБ

http://afc2008.narod.ru/notes/notes-setup.exe

Файл инсталляции, 1,08 МБ

Нововведения:

1)Возможность перемещения программы (кнопка "П") (исправлен баг бета 1), и, что главное, позиция сохраняется после нажатия кнопки "З"!
2)Возможность редактировать уже созданные заметки

Огромное спасибо пользователю @lex, он помог мне с функцией перемещения, которая не фурычила :)

Пишите о багах, если будут

Если есть пожелания, тоже пишите.
Ответить

Ответы Всего ответов: 18

Номер ответа: 1 Автор ответа: Алексей ICQ: нету Вопросов: 6 Ответов: 42	Профиль \| \| #1	Добавлено: 14.07.11 16:18
	Толь я чего то не так сделал... в общем твоё окуошко у меня не полностью видно и передвинуть его не удаётся Ответить

Номер ответа: 2 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #2	Добавлено: 14.07.11 16:50
	Public mode$ If mode$ = "e" Then text$ = frmMain.Text1.text Text1.text = text$ End If Бред. Зачем тебе стринговая переменная? Делай булевую. И, как я понимаю, кнопочка "Р" - редактирование. При нажатии mode$ = "e" и открывается окошко с текстом. Но потом текст остается в текстбоксе даже при нажатии кнопки "+". Короче говоря. Модуль: Public Mode As Boolean frmAdd: Private Sub Form_Load() If Mode = True Then Text1.text = frmMain.Text1.text End If End Sub frmMain: Private Sub Command3_Click() 'Добавление Mode = False frmAdd.Show End Sub Private Sub Command4_Click() 'Редактирование Mode = True frmAdd.Show End Sub Ответить

Номер ответа: 3 Автор ответа: Daniel ICQ: 610950440 Вопросов: 12 Ответов: 45	Web-сайт: smallsoft.ucoz.com Профиль \| \| #3	Добавлено: 14.07.11 16:55
	Точняк!!!!! Блин!!! Ну как я мог это упустить! Ответить

Номер ответа: 4 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #4	Добавлено: 14.07.11 17:00
	Но реализация перемещения формы все равно достаточно бредовая. Сделай возможность таскать форму за любое место. Что-то типа такого: Declare Function ReleaseCapture Lib "user32" () As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Global Mov As Boolean Private Sub Command5_Click() If Mov = True Then Mov = False Command5.Caption = "+" Else Mov = True Command5.Caption = "-" End If End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Mov = True Then ReleaseCapture SendMessage Me.hWnd, &HA1, 2, 0& End If End Sub Ответить

Номер ответа: 5 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #5	Добавлено: 14.07.11 17:08
	Хотя зачем глобальную? Туплю. Ладно, какая хрен разница. И что-то типа такого еще допилить можно. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Dim Ontop As Boolean Private Sub Command6_Click() If Ontop = True Then Ontop = False Command6.Caption = "+" SetWindowPos Me.hwnd, -2, 0, 0, 0, 0, 2 Or 1 Else Ontop = True Command6.Caption = "-" SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 2 Or 1 End If End Sub Ответить

Номер ответа: 6 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #6	Добавлено: 14.07.11 17:12
	А если подумать, то Mode твоя вообще не нужна. Как и Private Sub Form_Load() Dim text$ If mode$ = "e" Then text$ = frmMain.Text1.text Text1.text = text$ End If End Sub в frmAdd. Сделай просто: Private Sub Command3_Click() frmAdd.Show End Sub Private Sub Command4_Click() frmAdd.Show frmAdd.Text1.text = Text1.text End Sub Ответить

Номер ответа: 7 Автор ответа: Daniel ICQ: 610950440 Вопросов: 12 Ответов: 45	Web-сайт: smallsoft.ucoz.com Профиль \| \| #7	Добавлено: 14.07.11 20:58
	Спасибо! а как заблокировать изменения тексбокса (мне не нравится текстбокс с Enabled = false)? Ответить

Номер ответа: 8 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #8	Добавлено: 15.07.11 02:11
	У текстбокса есть свойство Locked. Text1.Locked = True Ответить

Номер ответа: 9 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #9	Добавлено: 15.07.11 02:15
	Но тогда будет появляться каретка, можно выделять текст и т.д. Зачем тебе текстбокс? Сделай лейбл. С ним таких проблем не будет. Ответить

Номер ответа: 10 Автор ответа: Daniel ICQ: 610950440 Вопросов: 12 Ответов: 45	Web-сайт: smallsoft.ucoz.com Профиль \| \| #10	Добавлено: 15.07.11 13:07
	О! Спс! Ответить

Номер ответа: 11 Автор ответа: Daniel ICQ: 610950440 Вопросов: 12 Ответов: 45	Web-сайт: smallsoft.ucoz.com Профиль \| \| #11	Добавлено: 15.07.11 14:47
	Я перезалил архив с кодом. Там изменения, но качается по той же ссылке. А вот notes-setup я не перезаливал. Ответить

Номер ответа: 12 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #12	Добавлено: 15.07.11 15:54
	Добавил бы в настройки возможность сделать форму поверх всех окон. Ответить

Номер ответа: 13 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #13	Добавлено: 15.07.11 15:56
	Да и настройки можно хранить в одном файле, нафига создавать 10 штук? ) Ответить

Номер ответа: 14 Автор ответа: Daniel ICQ: 610950440 Вопросов: 12 Ответов: 45	Web-сайт: smallsoft.ucoz.com Профиль \| \| #14	Добавлено: 15.07.11 17:25
	Как сделать форму поверх всех окон? В нет есть TopMost. Тут нету. Ответить

Номер ответа: 15 Автор ответа: Daniel ICQ: 610950440 Вопросов: 12 Ответов: 45	Web-сайт: smallsoft.ucoz.com Профиль \| \| #15	Добавлено: 15.07.11 19:34
	Я перезалил архив еще раз. Кнопка "^" означает поверх всех окон. Ответить

Страница: 1 | 2 |