Search the Community

Showing results for tags 'salvar optionbutton'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 1 result

  1. tazZz

    VBA / AUTOCAD

    Olá Tenho um FORMULARIO feito em vba que consiste em inserir "blocos" do auto cad em um ponto "X,Y", Gostaria de salvar as opções ticadas no formulario, que consistem em "OptionButton", PARA poder editá-las quando reabertas, para isso os OP, teriam que ser reaberto com a opção marcada pela ultima vez. CODIGO: Dim blockRef1 'REFERENCIA FLAME 1,4,5,6 EVER Dim insertionPnt1(0 To 2) As Double 'REFERENCIA FLAME 1,4 E 5 EVER Dim pathform1 As String 'REFERENCIA FLAME 1,4 E 5 EVER Private Sub CommandButton1_Click() '---------------------------------------------------------- If OptionButton1.Value = True Then 'Tensão 220V pathform1 = "XIS" 'FECHO LINGUENTA MIOLO FENDA insertionPnt1(0) = 112.96 'CORDENADA X insertionPnt1(1) = 266.7 'CORDENADA Y insertionPnt1(2) = 0# 'CORDENADA Z Set blockObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt1, pathform1, 1, 1, 1, 0) 'LOCAL ONDE SERA INSERIDO O BLOCK OptionButton1.TabStop = False ElseIf OptionButton2.Value = True Then 'Tensão 380V pathform1 = "XIS" 'REFERENCIA PODE SER O NOME OU DIRETORIO insertionPnt1(0) = 141.04 'CORDENADA X insertionPnt1(1) = 266.7 'CORDENADA Y insertionPnt1(2) = 0# 'CORDENADA Z Set blockObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt1, pathform1, 1, 1, 1, 0) 'LOCAL ONDE SERA INSERIDO O BLOCK OptionButton1.TabStop = False ElseIf OptionButton2.Value = True Then 'Tensão 380V pathform1 = "XIS" 'REFERENCIA PODE SER O NOME OU DIRETORIO insertionPnt1(0) = 141.04 'CORDENADA X insertionPnt1(1) = 266.7 'CORDENADA Y insertionPnt1(2) = 0# 'CORDENADA Z Set blockObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt1, pathform1, 1, 1, 1, 0) 'LOCAL ONDE SERA INSERIDO O BLOCK OptionButton1.TabStop = False End If UserForm1.Hide End Sub