Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Создание справочника Windows API

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

 

  Вопрос: Вызов Календаря и отбор выбранного значения Добавлено: 31.07.12 22:33  

Автор вопроса:  Millenium | Web-сайт: www.aliyev.us | ICQ: 629966 

Ответить

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

Номер ответа: 16
Автор ответа:
 Millenium



ICQ: 629966 

Вопросов: 118
Ответов: 903
  Web-сайт: www.aliyev.us
 Профиль | | #16 		Добавлено: 07.08.12 12:16
http://www.timosoft-software.de/onlinehelp/dtctls11/unicode/main.html А вот это кустом контроль на базе того-же оригинала.

Ответить

Номер ответа: 17
Автор ответа:
 Avvelana



Вопросов: 2
Ответов: 18
  Профиль | | #17 Добавлено: 09.08.12 01:35
Так проблема решена? Вон, накидал библиотеку на ФБ, 8 килобайт. Исходники библиотеки и тестовый проект внутри архива:
http://filebeam.com/a20d70f76f1fd44d7aeb212c9e6ce828


Использовать так:
  1.  
  2. Option Explicit
  3.  
  4. Private Declare Function Init Lib "calendar.dll" (ByVal hWnd As Long, ByVal x_pos As Integer, ByVal y_pos As Integer, ByVal wnd_width As Integer, ByVal wnd_height As Integer, ByVal call_back As Long, ByVal wnd_proc As Long) As Long
  5. Private Declare Function GetCurrentSelectYear Lib "calendar.dll" () As Long
  6. Private Declare Function GetCurrentSelectMonth Lib "calendar.dll" () As Long
  7. Private Declare Function GetCurrentSelectDay Lib "calendar.dll" () As Long
  8.  
  9. Dim res As Long
  10.  
  11. Private Sub Command1_Click()
  12.     
  13.     Dim cur_year As Long
  14.     Dim cur_month As Long
  15.     Dim cur_day As Long
  16.  
  17.     cur_year = GetCurrentSelectYear()
  18.     cur_month = GetCurrentSelectMonth()
  19.     cur_day = GetCurrentSelectDay()
  20.  
  21.     MsgBox "Пользователь выбрал " & Str(cur_year) & " год, " & Str(cur_month) & " месяц, " & Str(cur_day) & " день."
  22.  
  23. End Sub
  24.  
  25. Private Sub Form_Load()
  26.  
  27.     res = Init(Me.hWnd, 10, 10, 190, 165, 0, 0) 'Хендл родительского окна, положение x, положение y, ширина, высота.
  28.  
  29. End Sub



Очень простая библиотека, нельзя устанавливать программно дату и прочее.

Ответить

Номер ответа: 18
Автор ответа:
 Avvelana



Вопросов: 2
Ответов: 18
  Профиль | | #18 Добавлено: 09.08.12 01:36
К сожалению на ФБ, если писать на C - пришлось бы тащить с собой рантайм MinGW.

Ответить

Номер ответа: 19
Автор ответа:
 Millenium



ICQ: 629966 

Вопросов: 118
Ответов: 903
  Web-сайт: www.aliyev.us
 Профиль | | #19 		Добавлено: 14.08.12 20:48
Спасибо! Теперь осталось слить его в проект.

Ответить

Номер ответа: 20
Автор ответа:
 Avvelana



Вопросов: 2
Ответов: 18
  Профиль | | #20 Добавлено: 14.08.12 21:34
Да нет проблем. :)

Ответить

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

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам