Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.Ru

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, просто спросите и получите ответ ;-)

Вопрос #000807: Проблемы с закачкой файлов из Интернета на Ginz...

Автор вопроса: Koshpaev Valery // 03.03.2008 / 18:36

Здравствуйте,уважаемые
эксперты!Может вся проблема заключается в том,что я не установил на Джинзу ActiveSync 4.5 с установочного диска,который прилагается к коммуникатору?Только я не знаю где,в каком клубе в Москве я могу закачать эту программу на компьютер,а потом перекачать ее с компьютера на свой коммуникатор,т.к.я пытался обращаться в одно интернет-кафе,другое,но нигде мне не разрешали закачивать ActiveSync на компьютер с установочного диска для Джинзы.У моего коммуникатора есть GPRS,но нет EDGE-какую лучше скорость подключения
к
 Интернету мне подключить,и почему всегда прерывается связь при закачке файлов 3.gp,всегда выдавая мне сообщение об однои и той же ошибке,про которую я Вам уже писал?Валерий


   ________________________________________________________
Вы уже с Yahoo!? 
Испытайте обновленную и улучшенную. Yahoo! Почту! http://ru.mail.yahoo.com

Отвечает: Алексей Немиро // 04.03.2008 / 05:48

Здравствуйте, Валерий.
 
 ActiveSync необходим для синхронизации данных с ББ (ББ
– большой брат :) – обычный компьютер).
 Следует отметить, что если например, у Вас
 будут в личных папках размещены какие-либо файлы, а на ББ этих файлов
 не будет, то с устройства при синхронизации они будут удалены, так что
 важные данные лучше хранить где-нибудь в другом месте, например на
 карточке памяти, либо в любой другой папке, не имеющей отношения к
 личным папкам (Мои документы, Мои мелодии и т.п.) пользователя
 устройства.
 
 Так что в данном случае,
установка данного софта на компьютер в клубе
 бессмысленна, да и Ваши личные данные могут стать достоянием
 общественности (на локальном компьютере в папке «Мои документы»
 создается папка с данными из личных папок устройства).
 
 Рекомендую найти какого-нибудь друга в Москве, и воспользоваться для
 этих целей его компьютером.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000804: Проблемы с загрузкой файлов на Ginza MS100

Автор вопроса: Koshpaev Valery // 02.03.2008 / 13:30

Здравствуйте,эксперты!У меня есть коммуникатор Ginza MS100(CPU:ARM 926TI OMAP 750@200MHz;128MB
ROM+64MB RAM;OC:Microsoft Windows Mobile 5.0),но у меня нет компьютера или ноутбука.Мой коммуникатор Джинза имеет встроенный браузер для выхода в Интернет.Я хочу закачивать небольшие фильмы и видеоролики напрямую из Интернет,а также различные программы-тоже из Интернета.Но всегда при попытках скачивания файлов из Интернет появляются сообщения об ошибках:1)&quot;Данный файл не читается(не отображается)на устройстве&quot;2)&quot;Неизвестная ошибка при скачивании файлов
 0X80004005&quot;(что
это за код и из-за чего он появляется,что он означает?)3)&quot;Искомую страницу не удается найти из-за неизвестной ошибки 0x80072f78&quot;(что это за код и из-за чего он появляется,что он означает?)4)Какую программу,видеоконвертер мне надо установить на Ginza MS100,чтобы я мог скачивать различные медиафайлы из Интернета своей Джинзой и откуда я могу эту программу скачать(лучше-бесплатно!)?Пожалуйста,вышлите ответы на этот адрес моей почты!-Заранее большое Вам спасибо и очень надеюсь на Вашу помощь!Валерий


   ________________________________________________________
Вы уже с Yahoo!? 
Испытайте обновленную и улучшенную. Yahoo! Почту! http://ru.mail.yahoo.com

Отвечает: Алексей Немиро // 04.03.2008 / 05:37

Здравствуйте, Валерий.
 
 Вероятно проблема в том, что Вы пытаетесь открыть файл прямо из

Интернета, а не скачать его. Скорей всего ошибка происходит из-за
 отсутствия нужных кодеков, и банальной поддержки данного формата
 файлов в системе, а также из-за нестабильной связи.
 
 Вообще, большие файлы лучше не качать по GPRS, это не надежно и
 дороговато. Обычно все, что нужно закачивают на устройство через
 компьютер.
 
 В качестве плеера могу порекомендовать Core Player, а как альтернативу
 IE, можно использовать Opera.
 Все это дело можно найти на сайте 4pda.ru.
 
 Что касается файлов других форматов, то обычно, эти файлы в Интернет размещены в
 архивах zip или rar, WM такие файлы не понимает,
 нужно устанавливать дополнительные программы, чтобы работать с файлами
 архивов, например файловый обозреватель Resco Explorer 2007
 может читать zip-архивы. Файлы установок обычно идут в формате
 cab,
они вполне нормально должны запускаться.
 Некоторые программы могут быть размещены как обычные
 Windows-инсталеры, т.е. чтобы их установить потребуется компьютер и
 подключить устройство к нему.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000799: Новый вопрос без темы

Автор вопроса: Максим // 01.03.2008 / 18:57

При попытке открыть дизайнер формы в Visual Studio 2008 возникает ошибка
 "The service Microsoft.VisualStudio.Shell.Interop.ISelectionContainer
 already exists in service container/ Parameter name: serviceType". Данная
 ошибка возникает на всех языках программирования.
 

Отвечает: EROS // 01.03.2008 / 22:10

Feedback
 Workarounds

Вопрос #000791: Проблема_в_VB_.NET_с_использованием_функции_из_...

Автор вопроса: Mikhail Belov // 29.02.2008 / 18:28

Отлаживаю программу в среде разработки Microsoft Visual Basic.NET,
возникает проблема:
 В ходе исполнения в Отладчике при вызове функции из DLL-библиотеки получаю диагностику
 в окне Microsoft Development Environment:
 
 -------------------------------
 Необработанное исключение типа "System.NullReferenceException" произошло в Modul.exe.
 
 Дополнительные сведения: в экземпляре объекта не задана ссылка на объект.
 -------------------------------
 
 Моdul - имя отлаживаемой программы.
 
 Отладчик "подсвечивает"
строку с вызовом функции из библиотеки:
     res = ReadIEEE32(8, 0, "rEAd", val, tm, 0)
 
 Переменные объявлены выше в модуле:
  Dim res As Long
     Dim val As Single
 
 Функция из DLL-библиотеки объявлена в модуле:
   Private Declare Function ReadIEEE32 Lib "owen_io" _
   (ByVal adr As Long, ByVal adr_type As Long, _
    ByVal command As String, ByRef res As Single, _
    ByRef time As Long, ByVal Index As Integer) As Long
 
 
 
 В Help'e на библиотеку функция описана следующим образом:
 для C++ 
  int ReadIEEE32(DWORD adr,DWORD adr_type,char *command,float &value,int &time,int index); 
 
 для VB
  Function ReadIEEE32(ByVal adr As Long, ByVal adr_type As Long, ByVal command As String, res As Single, time As Long, ByVal Index As Integer) As Long 
 
 Подскажите, что делать ?

Отвечает: EROS // 01.03.2008 / 08:27

По всей видимости дело в неправильном объявлении функции. Попробуйте
 Long заменить Integer.

Вопрос #000764: Програмное определение позиции меню в vb6

Автор вопроса: Иван Денишев // 16.02.2008 / 23:24

Здравствуйте уважаемые эксперты!
 Говорят, что вы можете ответить на любой вопрос.
 Как программно в vb6 узнать, на каком пункте меню находится курсор.
 Для примера, возьмём меню "файл".
 Caption   |   Name
 Файл   |   MnuFile
 Создать   |   MnuFileNew
 Открыть
  |   MnuFileOpen
 Ну, и пожалуй, хватит. И так будет понятно.
 Запускаем программу и жмём: либо f10, либо alt.
 Затем стрелку вниз.
 Меню "Создать", выделится другим цветом.
 Так вот, как программно получить, где находится курсор?
 Ведь, в vb нету свойства GotFocus у менюшек.
 Очень надеюсь на вашу помощь!
 ---
 С уважением: Иван Денишев.

Отвечает: Алексей Немиро // 17.02.2008 / 10:12

Здравствуйте, Иван.
 
 ВНИМАНИЕ: Данный пример довольно опасный, и может привести к зависанию Visual Basic!
 
 Скачать готовый пример можно тут: http://kbyte.ru/Code/Samples/form1.zip
 
 Создайте
новый EXE-проект, на форме разместите Timer и вставьте следующий код:
 
 Код формы:
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
Option Explicit

Private Sub Form_Load()
 gHW = Me.hwnd
 Hook
End Sub

Private Sub Form_Unload(Cancel As Integer)
 Unhook
End Sub

Private Sub Timer1_Timer()
 Me.Caption =
SelectedMenuString
End Sub

 
 Также добавьте несколько элементов меню.
 Дополнительно создайте новый модуль и вставьте следующий код:
 
 Код модуля:
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
068:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
080:
081:
082:
083:
084:
085:
086:
087:
088:
089:
090:
091:
092:
093:
094:
095:
096:
097:
098:
099:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
Option Explicit

Public SelectedMenuString As
String 'здесь будет заголовок выбранного элемента меню

Private Declare Function CallWindowProc Lib "user32" _
  Alias "CallWindowProcA" (ByVal lpPrevWndFunc As
Long, _
  ByVal hwnd As Long, ByVal Msg As Long, _
  ByVal wParam As Long, ByVal lParam As Long) As
Long

Private Declare Function SetWindowLong Lib "user32" _
  Alias "SetWindowLongA" (ByVal hwnd As Long, _
  ByVal
nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetMenu Lib "user32" _
 (ByVal
hwnd As Long) As Long

Private Declare Function GetSubMenu Lib "user32" _
 (ByVal hMenu As Long, ByVal nPos
As Long) As Long

Private Declare Function GetMenuItemCount Lib "user32" _
 (ByVal hMenu As Long) As Long

Private Declare Function GetMenuState Lib "user32" _
 (ByVal hMenu As Long, ByVal wID As Long, _
  ByVal
wFlags As Long) As Long

Private Declare Function GetMenuString Lib "user32" _
  Alias "GetMenuStringA" (ByVal hMenu As
Long, _
  ByVal wIDItem As Long, ByVal lpString As String, _
  ByVal nMaxCount As Long, ByVal wFlag As Long) As
Long

Private Const MF_BYPOSITION = &H400&
Private Const MF_HILITE = &H80&
Private Const WM_MENUSELECT = &H11F
Private Const
GWL_WNDPROC = -4

Public lpPrevWndProc As Long
Public gHW As Long

Public Sub Hook()
  'Begin hooking into messages.
  lpPrevWndProc = SetWindowLong(gHW,
GWL_WNDPROC, _
  AddressOf WindowProc)
End Sub

Public Sub Unhook()
  'Cease hooking into messages.
  SetWindowLong gHW, GWL_WNDPROC, lpPrevWndProc
End Sub

Function AnyLit(hSubSubMenu
As Long) As Long
  Dim i As Long
  Dim MenuCount As Long

  'Get the number of items in the menu.
  MenuCount =
GetMenuItemCount(hSubSubMenu)

  'Loop through the menu items.
  For i = 0 To MenuCount - 1
    'Check whether this item is highlighted.
    If GetMenuState(hSubSubMenu, i, MF_BYPOSITION) And _
        MF_HILITE Then
      AnyLit = True
      Exit Function
    End If
  Next i

  'Return
FALSE, no items highlighted.
  AnyLit = False
End Function

Private Sub WalkSubMenu(hSubMenu As Long)
  Dim i As Long
  Dim
MenuItems As Long
  Dim hSubSubMenu As Long
  Dim buffer As String
  Dim result As Long

  'Get the count of
menu items in this menu.
  MenuItems = GetMenuItemCount(hSubMenu)

  'Loop through all the items on the menu.
  For i = 0 To MenuItems - 1
    'Determine whether this item is highlighted.
    If
GetMenuState(hSubMenu, i, MF_BYPOSITION) And _
        MF_HILITE Then
      'Attempt to get a submenu for each menu item.
      hSubSubMenu = GetSubMenu(hSubMenu, i)

      'Check for a submenu with something selected on it.
      If hSubSubMenu And AnyLit(hSubSubMenu) Then
        'There is a submenu with a selection so walk it.
        WalkSubMenu hSubSubMenu
      Else
        buffer = Space(255)
        result = GetMenuString(hSubMenu, i, buffer, Len(buffer), MF_BYPOSITION)
        buffer = Left$(buffer, result)
        SelectedMenuString = GetDescription(buffer)
        Exit
Sub
      End If
    End If
  Next i
End Sub

Public Sub FindHilite(TheForm As Form)
  Dim hMenu As Long
  Dim hSubMenu As Long
  Dim i As Long
  Dim MenuCount As Long

  'Clear
any previous description.
  SelectedMenuString = ""

  'Get the menu handle.
  hMenu = GetMenu(TheForm.hwnd)

  'Check to see if there is no menu.
  If hMenu <> 0 Then
    'Get the number of top-level menus.
    MenuCount = GetMenuItemCount(hMenu)

    'Enumerate through all top-level menus.
    For i = 0 To MenuCount - 1
      'Ignore top-level menus
not currently selected.
      If GetMenuState(hMenu, i, MF_BYPOSITION) And _
          MF_HILITE Then
        'Get a handle to the submenu.
        hSubMenu = GetSubMenu(hMenu, i)

        'Walk the submenu.
        WalkSubMenu hSubMenu
      End If
    Next i
  End If
End Sub

Private Function GetDescription(MenuCaption As String) As String
 GetDescription = MenuCaption
End Function

Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 If uMsg = WM_MENUSELECT
Then
  FindHilite Form1
 End If
 WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Function

 
 При выборе элемента меню в переменной SelectedMenuString будет текст заголовка выбранного элемента меню.

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Последнее на форумах

почему забирает ресурсы | Автор: нияметдин
Добавлено: 06.04.2008 / 05:18 | ответов: 0 | просмотров: 19

Здравствуйте!Программировать учусь.Хочу сделать часы в виде экрана радиолокатора.Т.е задача состоит в том,что секундная стрелка часов должна идти не дискретно,а плавно с определенной скоростью.Написал для этого код:

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
Dim x As Variant
Dim y As Variant
pi = 3.14159
Line1.X1 = 6840
Line1.Y1 = 5280
For n = 0 To 2 * pi Step 0.001
x = 6840 + 4000 * Cos(n)
y = 5280 + 4000 * Sin(n)
Line1.X2 = x
Line1.Y2 = y
Cls
Next
End Sub

Private Sub Form_Click()
End
End Sub
Запускаю все работает,но нажимаю ctrl-alt-del занимает процесс 18Мб памяти и загруженность ЦП 45-56%.Деалал .ехе файл тоже самое.
Как можно сделать,чтобы программа занимала мало ресурсов.Заранее благодарен.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

js+css(или html) | Автор: Kolya007
Добавлено: 04.04.2008 / 14:52 | ответов: 1 | просмотров: 45

Есть некий тег <p> с текстом, надо чтобы в зависимости от разрешения экрана, текст в нем менял свой размер... Первоначально из расчета на разрешение 1280х1024 текст имеет размер 80pt...

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Kolya007
Добавлено:05.04.2008 / 16:56
Уже нет необходимости, узнал в другом месте...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

физический адрес (номер) материнки | Автор: ВЛас
Добавлено: 04.04.2008 / 13:37 | ответов: 0 | просмотров: 26

Возможно ли, и каким образом (наброски кода) с помощью VisualBasic.NET определить номер материнки или процессора компьютера, на котором программа установлена (работает)?

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

DataGridView+chekbox | Автор: DANger
Добавлено: 04.04.2008 / 11:49 | ответов: 0 | просмотров: 36

Добрый день.
У меня такой вопрос.
Используем vs2008+sql
Создаем DataGridView в него получаем таблицу из sql ля.. - полёт нормальный..
Задача добавить в DataGridView поле с checkbox и получить например по нажатию на кнопку id тех записей которые отмечены чекбоксом – тут проблемка .. поле добавляется но не работает.
Подскажите пожалуйста выход из такой ситуации, если можно с примером.
Заранее спасибо.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Internet Explorer | Автор: Жак Кусто
Добавлено: 02.04.2008 / 11:56 | ответов: 0 | просмотров: 55

Хотелось бы сделать программку, которая запускалась бы в фоновом режиме, и автоматически меняла настройки Internet Explorer в части "Ограничения доступа" и добавляла в список запрещенных сайтов определенный сайт. И в тоже время запрещала менять данное свойство. Например: сделать таймер, чтобы он заново записывал этот сайт в список при изменении данного свойства другим пользователем.

С уважением Жак Ив.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Наверх

Последние статьи

Как узнать размер базы данных MySQL через php
Автор: Николай Рудченко | добавлено: 14.02.2008 / 13:01 | просмотров: 319

В этой небольшой статье вы узнаете, как получить размер вашей базы данных (БД) MySQL используя язык программирования PHP.

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 3643

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 6738

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 1891

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 4656

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. ...

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Анализ E-Mail
Дата добавления: 24.03.2007 / 10:54 | просмотров: 976 | платформа: RegEx

Форма поверх всех окон
Дата добавления: 31.07.2006 / 12:14 | просмотров: 1410 | платформа: VB

Как узнать дату создания/изменения файла?
Дата добавления: 31.07.2006 / 12:42 | просмотров: 1793 | платформа: VB

Как сделать поле для ввода пароля?
Дата добавления: 01.08.2006 / 22:08 | просмотров: 1196 | платформа: VB .NET

Поиск слов
Дата добавления: 24.03.2007 / 11:01 | просмотров: 949 | платформа: RegEx

Проверить существование файла
Дата добавления: 31.07.2006 / 17:34 | просмотров: 1285 | платформа: ASP .NET (VB)

Как распечатать Web-страницу?
Дата добавления: 17.08.2006 / 17:58 | просмотров: 1634 | платформа: VB

Как получить значение определенного параметра из строки запроса?
Дата добавления: 31.07.2006 / 15:42 | просмотров: 1299 | платформа: ASP .NET (VB)

Как преобразовать десятичное число в восьмиричное?
Дата добавления: 16.08.2006 / 20:36 | просмотров: 1341 | платформа: VB

Как программно дополнить заголовок (Title) страницы?
Дата добавления: 31.07.2006 / 13:27 | просмотров: 1283 | платформа: ASP .NET (VB)

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

Приходит мужик в кабак:
- Я вчера тут весь вечер провёл?
- Тут.
- А зарплату всю пропил?
- Всю.
- Фу-у-у... Слава богу, а я думал, что потерял.

Рейтинг: 215
Всего голосов: 369