На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google
Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
Ссылки по теме:
  
> Уникальный идентификатор
firelex
   Сообщ. #1 ,

    Full Member
    ***
    Профиль · PM
    Рейтинг (т): 2
    Доброго времени суток всем!

    Где-то слышал что винда может генерировать уникальные идентификаторы 16-24 знака. Т.е. в любой момент времени эта функция будет выдавать разные значения.
    У меня проблема - создаю динамически кнопки и надо идентификатор уникальный. Вариант "Button1", "Button2", ... не подходит т.к. неизвестно сколько кнопок на данный момент уже имеется.
    Лёха
    Сообщ. #2 ,
      Master
      ******
      Профиль · PM
      Поощрения: 18 Dgm
      Рейтинг (т): 140
      Ты про генератор случайных чисел?
      Wizard B.V.
      Сообщ. #3 ,

        Thinker
        *********
        Профиль · PM
        Поощрения: 77 Dgm
        Рейтинг (т): 35
        2 firelex

        Могу предложить использовать hWnd кнопок.
        nash
        Сообщ. #4 ,
          Profi
          *****
          Профиль · PM
          Рейтинг (т): 55
          1. GUID называется.
          2. да вот hWnd
          3.
          как это не известно сколько имеется ?
          кто программу пишет ? должен знать.

          ExpandedWrap disabled
            Function GetUniqueName(ByVal sControlClass as String) As String
                Static i as Long
                i = i + 1
                GetUniqueName = sControlClass & CSTR(i)
            End Function


          ну или переменная видимости модуля.
          firelex
          Сообщ. #5 ,

            Full Member
            ***
            Профиль · PM
            Рейтинг (т): 2
            Цитата
            Static i as Long

            Вот это мысль дельная...

            Мелкософт в этом отношении лаконичностью не отличился

            ExpandedWrap disabled
              Private Type GUID
              Data1 As Long
              Data2 As Integer
              Data3 As Integer
              Data4(7) As Byte
              End Type
               
              Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid As GUID) As
              Long
               
              Public Function GetGUID() As String
              '(c) 2000 Gus Molina
               
              Dim udtGUID As GUID
               
              If (CoCreateGuid(udtGUID) = 0) Then
               
              GetGUID = _
              String(8 - Len(Hex$(udtGUID.Data1)), "0") & Hex$(udtGUID.Data1) & _
              String(4 - Len(Hex$(udtGUID.Data2)), "0") & Hex$(udtGUID.Data2) & _
              String(4 - Len(Hex$(udtGUID.Data3)), "0") & Hex$(udtGUID.Data3) & _
              IIf((udtGUID.Data4(0) < &H10), "0", "") & Hex$(udtGUID.Data4(0)) & _
              IIf((udtGUID.Data4(1) < &H10), "0", "") & Hex$(udtGUID.Data4(1)) & _
              IIf((udtGUID.Data4(2) < &H10), "0", "") & Hex$(udtGUID.Data4(2)) & _
              IIf((udtGUID.Data4(3) < &H10), "0", "") & Hex$(udtGUID.Data4(3)) & _
              IIf((udtGUID.Data4(4) < &H10), "0", "") & Hex$(udtGUID.Data4(4)) & _
              IIf((udtGUID.Data4(5) < &H10), "0", "") & Hex$(udtGUID.Data4(5)) & _
              IIf((udtGUID.Data4(6) < &H10), "0", "") & Hex$(udtGUID.Data4(6)) & _
              IIf((udtGUID.Data4(7) < &H10), "0", "") & Hex$(udtGUID.Data4(7))
              End If
               
              End Function
            Master ANDLL
            Сообщ. #6 ,

              Axe Mogul Khan
              ******
              Профиль · PM
              firelex
              UuidToString
              Есть такая функция;)
              Pantalone
              Сообщ. #7 ,
                Member
                **
                Профиль · PM
                Рейтинг (т): 1
                А нет ли какого-нибудь GUID отвечающего за идентификацию системы например при регистрации ее в домене?
                Должен быть, ведь если на компе введенном в домен переустановить систему то в домен его не пускает пока заново вручную не введешь.
                1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
                0 пользователей:


                Рейтинг@Mail.ru
                [ Script execution time: 0,0253 ]   [ 15 queries used ]   [ Generated: 15.09.25, 16:43 GMT ]  
                Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.