Как установить региональные параметры в приложении Visual Basic 6.0? Как установить visual basic


Как установить VBA в приложениях Microsoft Office

Некоторые приложения пакета Microsoft Office, такие как Word, Excel, Access, Outlook, позволяют использовать для решения пользовательских задач язык программирования Visual Basic for Applications (VBA).

Для того чтобы использовать возможности VBA, макросы, процедуры и надстройки, написанные на этом языке программирования, необходимо чтобы компонент Visual Basic для приложений был установлен вместе с приложениями пакета Microsoft Office.

Как проверить установлен ли Visual Basic для приложений?

Самый простой способ проверить наличие либо отсутствие установленного VBA это попробовать его запустить. Запустить VBA можно сочетанием клавиш Alt+F11 на клавиатуре, либо кнопкой "Visual Basic" на вкладке "Разработчик". По умолчанию вкладка "Разработчик" отключена во всех приложениях пакета Microsoft Office, поэтому предварительно ее нужно отобразить в настройках ленты.

Итак, если VBA установлен, то нажатие горячих клавиш либо кнопки "Visual Basic" на ленте приложения приводит к появлению окна редактора Visual Basic на экране монитора. Выглядит редактор примерно так, как показано на изображении ниже.

В случае, если окно редактора не появилось, то компонент Visual Basic для приложений необходимо установить.

Как установить Visual Basic для приложений?

Чтобы установить компонент пакета Visual Basic for Applications, необходимо нажать кнопку Пуск, зайти в Панель управления/Программы и компоненты, выбрать программу Microsoft Office и нажать кнопку "Изменить", либо запустить установочный файл Setup.exe.

Далее выбрать опцию "Добавить или удалить компоненты",  в параметрах установки выбрать компонент Visual Basic для приложений и доустановить его.

Другие материалы по теме:

macros-vba.ru

[service-pack] Как установить VB6 SP6 на Windows 8.1 x64? [windows64] [windows-8.1]

Решил мою «проблему» - очень странно, почему я не мог понять, какие файлы мне нужны и что я должен был сделать ...

Скачан и распакован (Vs6sp6.exe, у меня установлен только VB6):

Пакет обновления 6 для Visual Basic 6.0 http://www.microsoft.com/en-us/download/details.aspx?id=5721

Затем запустил setupsp6.exe с правами администратора явно - и он установил SP6 без каких-либо проблем.

Как установить Visual Basic 6 (VB6) в Windows 10

Подготовьте свою систему

В ваших системных каталогах необходимо подготовить файл MSJAVA.DLL, чтобы можно было выполнить установку VB6. С точки зрения этого, просто установите установщик VBPreInstall.exe и выполните установку.

Установите VB6 и SP6

Получив MSJAVA.DLL, вы можете запустить файл setup.exe Visual Basic 6. с правами администратора, чтобы начать установку.

  1. Принять соглашение, ключ продукта
  2. Введите имя и информацию о компании, нажмите « Далее» .
  3. Выберите « Пользовательская настройка» , нажмите «Далее».
  4. Нажмите « Далее» , дождитесь появления других окон, нажмите « Продолжить» , затем «ОК».
  5. Программа установки будет «думать о себе» около 2 минут. Обработка может быть проверена путем запуска диспетчера задач и проверки использования ЦП ACMSETUP.EXE.
  6. В списке опций выберите следующее: Microsoft Visual Basic 6.0 ActiveX Data Access Graphics Все остальные параметры должны быть сняты.
  7. Когда вы выбираете «Data Access» , вам нужно нажать кнопку « Изменить параметр» .

  8. Затем вы получите еще один список компонентов с 5 элементами. Выберите первый вариант «ADO, RDS и OLE DB Providers» и нажмите кнопку « Изменить параметр» .

  9. Теперь вы получите еще один список компонентов, принадлежащих ADO, RDS и OLE DB Providers. Просто снимите первый флажок «ADO и RDS» и нажмите «ОК».

  10. Вы должны получить предупреждение о том, что этот компонент является неотъемлемой частью приложения, и приложение не будет работать должным образом, если оно не установлено. Вы можете игнорировать это всплывающее окно с предупреждением, нажав « ОК» и приступив к установке. Теперь установка VB6 будет успешно завершена без проблем.

  11. Снимите отметку с настройки MSDN
  12. Нажмите « Далее», чтобы пропустить установку Installshield. Это действительно старая версия, которую вы не хотите в любом случае.
  13. Нажмите « Далее» еще раз, чтобы пропустить установку BackOffice, VSS и SNA Server. Не нужно!
  14. В следующем диалоговом окне снимите флажок «Зарегистрировать сейчас» и нажмите «Готово».
  15. Мастер выйдет, и все готово. Вы можете найти VB6 в разделе «Пуск», «Все программы», «Microsoft Visual Studio 6. Наслаждайтесь!

Установите VB6 SP6

Установите vb6 sp6, перейдя на VbSp6, запустите setupsp6.exe как администратор с настройками по умолчанию.

Я пробовал оба метода здесь, в Windows 8.1 Update 2. Сначала симптом был таким же, как и OP, за исключением того, что я делал именно то, что сделал OP как его решение - извлечение файлов и запуск Vs6sp6.exe.

Поэтому я попробовал другое решение, установив MSDN. После установки MSDN я снова попробовал SP6. На этот раз он говорит, что он не может установить, потому что не может найти какие-либо продукты VS6. Но VB6 (без SP) все еще запускается нормально. Также MSDN запускается нормально.

Какие-либо предложения? Если мне нужно запустить его в виртуальной машине, я буду; У меня уже есть Windows XP на виртуальной машине Hyper-V для оригинального английского 90-х годов в Оксфорде. Но было бы намного удобнее, если бы я мог работать непосредственно в 8.1.

Кстати, я много лет работал в Windows 7. Есть несколько обручей, чтобы их установить, и он меняет экран, когда он начинается и останавливается, но в целом неплохо.

Я также нашел одну интересную статью, в которой описывается, как установить VB6 в Windows 10 в блоге Raimond.CC:

Как установить Visual Basic 6 (VB6) в Windows 10

https://www.raymond.cc/blog/install-visual-basic-6-vb6-in-windows-7-without-microsoft-virtual-machine-for-java/

Как вы можете видеть из заголовка, автор дает нам совет, как избежать установки ненужной виртуальной машины для Java. Еще один полезный совет в этой статье позволяет нам предотвратить прогресс в настройке вашей системы ... ».

Прочтите эту статью. Возможно, это поможет решить проблемы с установкой VB6 в вашей ОС.

code-examples.net

Как установить фокус на элемент управления, когда форма загружается в Visual Basic .NET или Visual Basic 2005

В данной статье описывается, как установить фокус на элемент управления при загрузке формы. В данной статье описывается, как с помощью свойства Form.ActiveControl , как использовать метод Control.Focus и как использовать метод Control.Select для установки фокуса на элемент управления.

Свойство Form.ActiveControl возвращает активный элемент управления или задает активный элемент управления в форме. ПриСвойство ActiveControl формы устанавливается на элемент управления в форме, фокус перемещается на элемент управления.

Метод Control.Select активизирует заданный элемент управления и устанавливает фокус на элемент управления.

Метод Control.Focus устанавливает фокус ввода на элементе управления. Элемент управления может получать фокус ввода, используя метод Control.Focus , если выполняются следующие условия:

  • ControlStyles.Selectable бит стиля элемента управления имеет значениеЗначение true.
  • Элемент управления, который будет получать фокус находится в другом элементе управления и все родительские элементы управления видимы и включены.
Примечание. Чтобы установить фокус на элемент управления в событии Load формы, когда свойство Visible формы имеет значение True, можно использовать метод Control.Focus .

к началу статьи

Требования

Предполагается, что вы знакомы со следующими разделами:
  • Синтаксис Visual Basic корпорации Майкрософт
  • Среда Microsoft Visual Studio .NET и Microsoft Visual Studio 2005
  • Элементы управления Microsoft Visual Basic
к началу статьи

Свойство Form.ActiveControl

Следующий пример описывает, как использовать свойство ActiveControl Form2 для установки фокуса на элемент управления TextBox без текста:
  1. Запустите Visual Studio 2005 или Visual Studio .NET.
  2. В меню файл укажите на пунктСоздатьи выберите команду проект.
  3. В области Типы проектоввыберитеПроекты Visual Basic.

    Примечание. В Visual Studio 2005 выберите в списке Типы проектов Visual Basic .

  4. В области Шаблонывыберите пунктПриложение Windows, а затем нажмите кнопку ОК.

    По умолчанию будет создана форма Form1.

  5. ДобавитьЭлемент управления Button в форму Form1.
  6. Щелкните правой кнопкой мыши кнопки Button1и нажмите кнопкуСвойства.
  7. В диалоговом окне Свойства установитеСвойство Text , чтобы Установить фокус.
  8. В меню проект выберите Добавить форму Windowsи нажмите кнопку Открыть.

    По умолчанию создается Form2.

  9. Добавьте триЭлементы управления TextBox Form2.
  10. Добавьте три элемента управления Label на Form2.

    Примечание. Поместите каждый элемент управления Label слева от элемента управления TextBox .

  11. В диалоговом окне Свойства установитеСвойство Text метки Label1Имя, значение свойства Text Label2 компании, а затем установите свойство Text Label3 на ContactNo.
  12. В диалоговом окне Свойства удалите текст в свойстве Text TextBox1, удалите текст в свойстве Text TextBox2и удалите текст в свойстве Text TextBox3.
  13. Добавьте следующий код дляСоздание обработчика событий Button1_Click в Form1:

    'Create an instance of Form2.Dim MyForm As New Form2()'Set the Text in the TextBoxes on Form2.MyForm.TextBox1.Text = "John"MyForm.TextBox3.Text = "123456"'Display the form.MyForm.Show()

  14. Добавьте следующий код в обработчик событий Form2_Load:

    Dim i As IntegerFor i = 0 To 5If Me.Controls(i).Name Is "TextBox1" Or Me.Controls(i).Name Is "TextBox2" Or Me.Controls(i).Name Is "TextBox3" Then'Find the TextBox for which Text is not set.If Me.Controls(i).Text = "" Then'Set the focus on the control without any text.Me.ActiveControl = Me.Controls(i)End IfEnd IfNext

  15. В меню Построение выберите команду Построить решение.
  16. В меню Отладка выберите командуДля запуска.
  17. Нажмите кнопку Установка фокуса.

    Фокус установлен на элементе управления TextBox без текста.

к началу статьи

Метод Control.Select

В следующем примере описывается, как найти элемент управления TextBox без текста на Form2 и описывается использование метода Control.Select для установки фокуса для элемента управления:
  1. Замените следующий оператор в обработчике событий Form2_Load

    Me.ActiveControl = Me.Controls(i)

    с помощью следующей инструкции:
  2. В меню Построение выберите команду Построить решение.
  3. В меню Отладка выберите командуДля запуска.
  4. Нажмите кнопку Установка фокуса.

    Фокус установлен на элементе управления TextBox без текста.

к началу статьи

Метод Control.Focus

Приведенный ниже описывается, как найти элемент управления TextBox без текста на Form2, описывается значение Trueсвойства Visible Form2 и затем описывается, как установить фокус на элемент управления с помощью метода фокус элемента управления:
  1. Замените существующий код в обработчике событий Form2_Loadследующий код:

    'Set the visible property of the form to true, 'and then set the focus to the control.Me.Visible = TrueDim i As IntegerFor i = 0 To 5If Me.Controls(i).Name Is "TextBox1" Or Me.Controls(i).Name Is "TextBox2" Or Me.Controls(i).Name Is "TextBox3" Then'Find the TextBox for which Text is not set.If Me.Controls(i).Text = "" Then'Set the focus on the control with no text.Me.Controls(i).Focus()End IfEnd IfNext

  2. В меню Построение выберите команду Построить решение.
  3. В меню Отладка выберите командуДля запуска.
  4. Нажмите кнопку Установка фокуса.

    Фокус установлен на элементе управления TextBox без текста.

к началу статьи

Разрешение вопросов

  • Удалите любой текст в элементах управления TextBox на Form2 перед запуском приложения.
  • Чтобы установить фокус на элемент управления формы свойства Visible присвоено значение True,можно использовать метод Control.Focus в событии Load формы.
к началу статьи

webhamster.ru

TecMan: Как установить VB6 SP6 на Windows 8.1 x64? - Найдено 8 ответов

Установка Visual Studio 6 + VB6 SP1

  1. Убедитесь, что UAC выключен.
  2. Убедитесь, что у пользователя есть права администратора на компьютере.
  3. Запустите файл Setup.exe в установщике Visual Studio.
  4. «Запустите программу без помощи», когда ошибка «Эта программа имеет проблемы совместимости».
  5. Нажмите «Далее», «Примите соглашение» и нажмите «Далее».
  6. Введите ключ, имя и название вашего программного обеспечения. Нажмите «Далее».
  7. Обновление виртуальной машины Microsoft для Java.
  8. «Запустите программу без помощи», когда ошибка «Эта программа имеет проблемы совместимости». Примечание дважды отображается.
  9. Скажите «Да», чтобы перезагрузить систему.
  10. При запуске настройка продолжает работать.
  11. «Запустите программу без помощи»
  12. Показана начальная страница. Нажмите «Рабочий стол».
  13. «Запустите программу без помощи»
  14. Visual Studio 6.0 Enterprise Edition с опциями «Пользовательские, продукты или серверные приложения».
  15. В этот момент нажмите «Выход» в установщике и подтвердите «Да», иначе при продолжении появится сообщение об ошибке.
  16. Запустите файл Setup.exe в установщике Visual Studio.
  17. «Запустите программу без помощи»
  18. Нажмите «Далее» и «Примите соглашение» и нажмите «Далее»
  19. Введите ключ, имя и название вашего программного обеспечения. Нажмите «Далее».
  20. Выберите «Пользовательский» и нажмите «Далее»
  21. Папка установки нажмите далее
  22. «Запустите программу без помощи»
  23. Нажмите «Продолжить».
  24. Идентификатор продукта нажмите «ОК»
  25. Инструменты - & gt; Изменить параметры - & gt; OLE / Com Object Viewer, Снимите флажок и нажмите OK.
  26. Инструменты предприятия - & gt; Изменить параметры - & gt; Visual Studio Analyzer, Снимите флажок и нажмите «ОК».
  27. Доступ к данным - & gt; Изменить параметры - & gt; ADO, RDS и OLE DB, снимите флажок.
  28. В этот момент он предупреждает, что компонент необходим. Нажмите «ОК» и «ОК» еще раз.
  29. Нажмите «Продолжить».
  30. Скажите Да, чтобы зарегистрировать переменные среды.
  31. Скажите «Да» в формате VSS DB.
  32. Появится окно с полем «Файл назначения:».
  33. Настройка обновляется, появится системное сообщение.
  34. Нажмите «ОК» на «Отладочные символы Windows NT».
  35. Нажмите «Перезапустить Windows».
  36. При запуске настройка продолжает работать и загружает APEMREG.exe.
  37. Установить с помощью совместимых настроек.
  38. «Запустите программу без помощи»
  39. Отключить установку MSDN. Нажмите «Далее» и «Да» для подтверждения.
  40. Выберите «Ничего» и нажмите «Далее».
  41. Выберите «Ничего» и нажмите «Далее».
  42. Отменить регистрацию и нажать «Готово». Установка SP6
  43. Запустить setupsp6.exe
  44. Нажмите «Продолжить».
  45. Нажмите «Я согласен».
  46. Успешно нажмите OK.

Подробнее: Ссылка

    

Как установить Visual Basic 6 (VB6) в Windows 10

Подготовьте свою систему

В ваших системных каталогах необходимо подготовить файл MSJAVA.DLL, чтобы можно было выполнить установку VB6. С точки зрения этого, просто установите установщик VBPreInstall.exe и выполните установку.

Установите VB6 и SP6

После получения файла MSJAVA.DLL вы можете запустить файл setup.exe Visual Basic 6. с правами администратора, чтобы начать установку.

  1. Принять соглашение, ключ продукта
  2. Введите имя и информацию о компании, нажмите Далее .
  3. Выберите Пользовательская настройка , нажмите «Далее».
  4. Нажмите Далее , подождите, пока появятся другие окна, нажмите Продолжить , затем нажмите ОК.
  5. Настройка будет «думать сама по себе» около 2 минут. Обработка может быть проверена путем запуска диспетчера задач и проверки использования ЦП ACMSETUP.EXE.
  6. В списке опций выберите следующее: Microsoft Visual Basic 6.0 ActiveX Доступ к данным Графика Все остальные параметры должны быть сняты.
  7. Когда вы выбираете «Доступ к данным» , вам нужно нажать кнопку Изменить .

  8. Затем вы получите еще один список компонентов с 5 элементами. Выберите первый вариант «ADO, RDS и OLE DB Providers» и нажмите кнопку Изменить параметр .

  9. Теперь вы получите еще один список компонентов, принадлежащих ADO, RDS и OLE DB Providers. Просто снимите флажок с первой опцией «ADO и RDS» и нажмите «ОК».

  10. Вы должны получить предупреждение о том, что этот компонент является неотъемлемой частью приложения, и приложение не будет работать должным образом, если оно не установлено. Вы можете игнорировать это всплывающее окно с предупреждением, нажав ОК и продолжите установку. Теперь установка VB6 будет успешно завершена без проблем.

  11. Снимите флажок Настройка MSDN
  12. Нажмите Далее , чтобы пропустить установку Installshield. Это действительно старая версия, которую вы все равно не хотите.
  13. Нажмите Далее еще раз, чтобы пропустить установку BackOffice, VSS и SNA Server. Не нужно!
  14. В следующем диалоговом окне снимите флажок , установите флажок «Зарегистрировать сейчас» и нажмите «Готово».
  15. Мастер выйдет, и все готово. Вы можете найти VB6 в разделе «Пуск», «Все программы», «Microsoft Visual Studio 6. Наслаждайтесь»

Установить VB6 SP6

Установите vb6 sp6, перейдя на VbSp6, запустите setupsp6.exe как администратор с настройками по умолчанию.

    

Решил мою «проблему» - очень странно, почему я не мог понять, какие файлы мне нужны и что я должен был сделать ...

Скачан и распакован этот файл (Vs6sp6.exe, у меня установлен только VB6):

Пакет обновления 6 для Visual Basic 6.0 Ссылка

Затем запустил setupsp6.exe с правами администратора явно - и он установил SP6 без каких-либо проблем.

    

Я попытался использовать оба метода в Windows 8.1 Update 2. Сначала симптом был таким же, как и у OP, за исключением того, что я делал именно то, что сделал OP как его решение - извлечение файлов и запуск Vs6sp6. ехе.

Итак, я попробовал другое решение, установив MSDN. После установки MSDN я снова попробовал SP6. На этот раз он говорит, что он не может установить, потому что не может найти какие-либо продукты VS6. Но VB6 (без SP) все еще запускается нормально. Также MSDN запускается нормально.

Любые предложения? Если мне нужно запустить его в виртуальной машине, я буду; У меня уже есть Windows XP на виртуальной машине Hyper-V для оригинального английского 90-х годов в Оксфорде. Но было бы намного удобнее, если бы я мог работать непосредственно в 8.1.

Кстати, я много лет работал в Windows 7. Есть несколько обручей, чтобы их установить, и он меняет экран, когда он запускается и останавливается, но в целом неплохо вообще.

    

Существует программа установки, упрощающая установку IDE VB6-программирования в Windows 7, 8 и 10, которая теперь имеет более 25 000 загрузок. Это включает пакет обновления 6

программа установки IDE VB6

    

Выполните следующие три простых действия:

  1. Сначала установите VB6
  2. Установить полную версию MSDN
  3. Установить VB6 SP6 только после установки MSDN

Вы сможете успешно установить VB6 SP6.

    

Я также нашел одну интересную статью, в которой описывается, как установить VB6 в Windows 10 в блоге Raimond.CC:

Как установить Visual Basic 6 (VB6) в Windows 10

Ссылка

Как вы можете видеть из заголовка, автор дает нам совет, как избежать установки ненужной виртуальной машины для Java. Еще один полезный совет в этой статье позволяет нам не допустить, чтобы «Программа установки обновляла вашу систему ...» от застревания.

Прочтите эту статью. Возможно, это поможет решить проблемы с установкой VB6 в вашей ОС.

    

В то время как вы можете запускать VB6 в Windows 8.1, это не будет хорошо, и вы обнаружите любое количество проблем.

Альтернативным вариантом является создание виртуальной машины с использованием диспетчера Hyper-V, который является vb6 install windows-8.1 windows64 service-pack

askdev.info

vb6 - Как установить региональные параметры в приложении Visual Basic 6.0?

От http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_21841979.html

Option Explicit Public Enum DateOrderEnum doDefault 'Your locale setting doMDY 'Month-Day-Year (U.S.) doDMY 'Day-Month-Year (EU, S.A.) doYMD 'Year-Month-Day (Japan) End Enum Public Const LOCALE_SSHORTDATE As Long = &h2F Public Const LOCALE_STHOUSAND As Long = &HF Public Const LOCALE_SDECIMAL As Long = &HE Public Declare Function GetUserDefaultLCID Lib "kernel32" () As Long Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long Public Declare Function GetLocaleInfoA Lib "kernel32" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long Public Function GetThousandsSep() As String GetThousandsSep = pfGLI(GetUserDefaultLCID(), LOCALE_STHOUSAND) End Function Public Function GetDecimalSep() As String GetDecimalSep = pfGLI(GetUserDefaultLCID(), LOCALE_SDECIMAL) End Function 'Purpose: Assume a date string with English separator "1/4/2006" 'Returns: Correct Date Variable Public Function ResolveDate(ByVal sDate As String) As Date Dim sArray() As String If InStr(sDate, "/") Then 'Potentially a date string sArray = Split(sDate, "/") Debug.Print "GetUserDefaultLCID", GetUserDefaultLCID Debug.Print "GetSystemDefaultLCID", GetSystemDefaultLCID If UBound(sArray) = 2 Then 'We have 3 parts Select Case ShortDateOrder2 Case doMDY ' ResolveDate = DateSerial(sArray(2), sArray(0), sArray(1)) Case doDMY ResolveDate = DateSerial(sArray(2), sArray(1), sArray(0)) Case doYMD ResolveDate = DateSerial(sArray(0), sArray(1), sArray(2)) End Select End If End If End Function 'Purpose: Assume a number string with English separators "123,456.78" 'Returns: Correct Double Variable Public Function ResolveNumber(ByVal sNum As String) As Double Dim sTS As String Dim sDS As String sTS = GetThousandsSep sDS = GetDecimalSep If (sTS = ",") And (sDS = ".") Then 'English 'format is OK Else Dim i As Long Dim sMid As String For i = 1 To Len(sNum) Select Case Mid(sNum, i, 1) Case "," Mid(sNum, i, 1) = sTS Case "." Mid(sNum, i, 1) = sDS End Select Next End If ResolveNumber = CDbl(sNum) End Function Public Function ShortDateOrder2() As DateOrderEnum 'Get ShortDateOrder the hard way Dim sShort As String Dim qOn As Boolean Dim i As Integer Dim sChar As String On Error Resume Next 'Get the Short Date format sShort = pfGLI(GetUserDefaultLCID(), LOCALE_SSHORTDATE) For i = 1 To Len(sShort) sChar = Mid(sShort, i, 1) 'Ignore items in single quotes (if any) If sChar = "'" Then qOn = Not qOn Else If Not qOn Then Select Case sChar Case "d" ShortDateOrder2 = doDMY Exit Function Case "m" ShortDateOrder2 = doMDY Exit Function Case "y" ShortDateOrder2 = doYMD Exit Function End Select End If End If Next End Function Private Function pfGLI(ByVal m_LocaleLCID As Long, ByVal reqInfo As Long) As String Dim Buffer As String * 255 GetLocaleInfoA m_LocaleLCID, reqInfo, Buffer, 255 pfGLI = StripNull(Buffer) End Function Public Function StripNull(ByVal StrIn As String) As String Dim nul As Long nul = InStr(StrIn, vbNullChar) Select Case nul Case Is > 1 StripNull = Left$(StrIn, nul - 1) Case 1 StripNull = "" Case 0 StripNull = Trim$(StrIn) End Select End Function

qaru.site

Решение: Как установить значение системного параметра Windows?

Всем здравствуйте. Нашёл пример использования функции API SystemParametersInfo, но он на C++. При попытке его воспроизвести на VB.Net получаю следующее:Imports System.Runtime.InteropServices Public Class Form1     Public Const SPI_GETFOCUSBORDERWIDTH As UInt32 = 8206     Public Const SPI_SETFOCUSBORDERWIDTH As UInt32 = &h300F     Public Const SPI_GETFOCUSBORDERHEIGHT As UInt32 = 8208     Public Const SPI_SETFOCUSBORDERHEIGHT As UInt32 = &h3011     <DllImport("user32.dll", SetLastError:=True)> _     Public Shared Function SystemParametersInfo(ByVal uiAction As UInt32, ByVal uiParam As UInt32, ByRef pvParam As IntPtr, ByVal fWinIni As UInt32) As Boolean     End Function     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         'вернуть значение         Dim fResult As Boolean         Dim dwOut As UInt32 = 0         fResult = SystemParametersInfo(SPI_GETFOCUSBORDERHEIGHT, 0, dwOut, 0)         Label1.Text = dwOut.ToString     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         'установить значение         Dim fResult As Boolean         Dim dwOut As UInt32 = 3         fResult = SystemParametersInfo(SPI_SETFOCUSBORDERHEIGHT, 0, dwOut, 0)     End Sub End ClassПри считывании получаем 1. Это ожидаемо. При установке и проверке считыванием ожидаю получить 3, а получаю число очень похожее на адрес в памяти.Добавлено через 15 часов 5 минут Результата добился следующим образом: в случае чтения использую объявление API функции таким образом: <DllImport("user32.dll", SetLastError:=True)> _     Public Shared Function SystemParametersInfo(ByVal uiAction As UInt32, ByVal uiParam As UInt32, ByRef pvParam As IntPtr, ByVal fWinIni As UInt32) As Boolean     End Functionв случае установки параметра, объявляю ту же функцию уже по-другому:    <DllImport("user32.dll", SetLastError:=True)> _     Public Shared Function SystemParametersInfo(ByVal uiAction As UInt32, ByVal uiParam As UInt32, ByVal pvParam As UInt32, ByVal fWinIni As UInt32) As Boolean     End FunctionЕстественно пришлось писать объявления одной и той же API-функции в двух разных приложениях. Возник вопрос: а возможно ли объявить функцию разными способами в одном и том же приложении? Может быть существует другой подход к этой проблеме?

studassistent.ru