Свойство Cell.ResultStrU (Visio)

Получает значение ячейки таблицы свойств фигуры, выраженное в виде универсальной строки. Только для чтения.

Синтаксис

выражение. ResultStrU (UnitsNameOrCode)

выражение Выражение, возвращающее объект Cell .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ИмяЕдиницыИлиКод	Обязательный	Variant	Единицы измерения для получения значения.

Возвращаемое значение

String

Примечания

Получение свойства ResultStrU аналогично получению свойства Result ячейки. Отличие состоит в том, что свойство ResultStrU возвращает строку значения ячейки, а свойство Result — число с плавающей запятой.

Аргумент UnitsNameOrCode можно представить как целое или строковое значение. Если строка недопустима, возникает ошибка. Например, все следующие операторы задают значение UnitsNameOrCode в дюймах.

строкаВозвращено = Cell.ResultStrU (visInches)

строкаВозвращено = Cell.ResultStrU (65)

строкаВозвращено = Cell.ResultStrU ("in"), где "in" также может быть любой из альтернативных строк, представляющих дюймы, например "inch", "in." или "intCounter".

Полный список допустимых строк единиц вместе с соответствующими константами автоматизации (целочисленными значениями) см. в разделе О единицах измерения.

Константы автоматизации для представления единиц объявлены библиотекой типов Visio в члене VisUnitCodes.

Передачи нуля (0) достаточно для получения значения ячеек текстовой строки.

Используйте свойство ResultStrU для преобразования между единицами измерения. Например, можно получить значение в дюймах, а затем получить эквивалентное значение в сантиметрах.

Свойство ResultStrU полезно для заполнения элементов управления, таких как поля ввода, значением ячейки.

Примечание.

Начиная с Microsoft Visio 2000, для обозначения фигур, образцов, документов, страниц, строк, надстроек, ячеек, гиперссылок, стилей, шрифтов, master ярлыков, объектов пользовательского интерфейса и слоев можно использовать как локальные, так и универсальные имена. Например, когда пользователь дает имя фигуре, он указывает локальное имя. Начиная с Microsoft Office Visio 2003, в формулах и значениях ячеек отображается только таблица свойств фигур. (В предыдущих версиях универсальные имена не отображались в пользовательском интерфейсе.)

Разработчик может использовать универсальные имена в программе, если вы не хотите менять имя каждый раз при локализации решения. Свойство ResultStr используется для получения значения объекта, выраженного в виде строки, соответствующей языковому стандарту. Свойство ResultStrU используется для получения значения объекта, выраженного в виде универсальной строки.

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) показывает два разных способа использования свойства ResultStrU для получения значения ячейки таблицы фигур, содержащей элемент данных фигуры (ранее — настраиваемое свойство).

Чтобы запустить этот макрос, откройте пустой документ и набор элементов " Компьютеры и мониторы (единицы США) ", а затем вставьте пользовательскую форму, содержащую метку, текстовое поле и список. Установите ширину списка 150.

Примечание.

Набор элементов "Компьютеры и мониторы" (единицы США) доступен только в Visio профессиональный.

 
Public Sub ResultStrU_Example()  
 
    Dim vsoStencil As Visio.Document  
    Dim vsoMaster As Visio.Master  
    Dim vsoPages As Visio.Pages  
    Dim vsoPage As Visio.Page  
    Dim vsoShape As Visio.Shape  
    Dim vsoCell As Visio.Cell  
    Dim intRows As Integer 
    Dim intCounter As Integer 
 
    'Get the Pages collection for the document.  
    'ThisDocument refers to the current document.  
    Set vsoPages = ThisDocument.Pages  
 
    'Get a reference to the first page of the Pages collection.  
    Set vsoPage = vsoPages(1)  
  
    'Get the Document object for the stencil.  
    Set vsoStencil = Documents("Comps_U.VSS") 
  
    'Get the Master object for the desktop PC shape.  
    Set vsoMaster = vsoStencil.Masters("PC")  
 
    'Drop the shape in the approximate middle of the page.  
    'Coordinates passed to the Drop method are always in inches.  
    'The Drop method returns a reference to the new shape object.  
    Set vsoShape = vsoPage.Drop(vsoMaster, 4.25, 5.5)  
 
    'This example shows two methods of extracting shape data 
    'The first method retrieves the value of a shape data item by name.  
    'Note that Prop.Manufacturer implies Prop.Manufacturer.Value.  
    Set vsoCell = vsoShape.Cells("Prop.Manufacturer")  
 
    'Get the cell value as a string  
    'and put it into the text box on the form.  
    UserForm1.TextBox1.Text = vsoCell.ResultStrU(Visio.visNone)  
 
    'Set the caption of the label.  
    UserForm1.Label1.Caption = "Prop.Manufacturer"  
 
    'The second method of accessing shape data uses  
    'section, row, cell. This method is best when you want  
    'to iterate through all the shape data.  
    intRows = vsoShape.RowCount(Visio.visSectionProp)  
 
    'Make sure the list box is cleared.  
    UserForm1.ListBox1.Clear  
 
    'Loop through all the rows and add the value of Prop.Manufacturer  
    'to the list box. Rows are numbered starting with 0.  
    For intCounter = 0 To intRows - 1  
        Set vsoCell = vsoShape.CellsSRC(Visio.visSectionProp, intCounter, visCustPropsValue)  
        UserForm1.ListBox1.AddItem vsoCell.LocalName & vbTab & _  
            vsoCell.ResultStrU(Visio.visNone)  
    Next intCounter  
 
    'Display the user form.  
    UserForm1.Show  
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.