Как я могу очистить всю форму для нового старта? - включить вставленные фотографии

-1

Мне было поручено создать пользовательскую форму с определенными функциями, и она смогла получить все, чтобы принять работу для кнопки четкой формы. Мне удалось очистить все от флажков (текстовые поля, combobox &), но не знаю, как очистить изображение, если он был вставлен без удаления всей опции. Я хочу, чтобы пользователь начинал новый, когда выбирал ясную форму. Я приложил несколько фотографий, чтобы помочь прояснить то, что я пытаюсь выполнить. Спасибо за вашу помощь.Как я могу очистить всю форму для нового старта? - включить вставленные фотографии

Private Sub CommandButton1_Click()[enter image description here][1] 
    question_clear = MsgBox("Are you sure you want to clear the form?  ", vbYesNo + vbQuestion, "Question") 

    If question_clear = 7 Then Exit Sub 'nothing will happen because user clicked no 

    If question_clear = 6 Then 
     TextBox20.Value = "" 
     TextBox21.Value = "" 
     TextBox22.Value = "" 
     TextBox23.Value = "" 
     TextBox24.Value = "" 
     TextBox25.Value = "" 

     currentqty.Value = "" 
     requiredqty.Value = "" 

     ComboBox1.Value = "" 
     ComboBox2.Value = "" 

     CheckBox1.Value = False 
     CheckBox2.Value = False 
     CheckBox3.Value = False 
    End If 
End Sub

источник

2016-02-23 Rey Taino

Попробуйте 'PictureBox1.Image = Nothing' – newguy

Добро пожаловать в StackOverflow, Рей. Пожалуйста, найдите минутку, чтобы прочитать рекомендации в Справочном центре о задании вопросов на сайте. Вы должны опубликовать CODE, а не скриншот своего кода, чтобы люди могли копировать/вставлять его для целей тестирования. –

Приношу свои извинения. Я отредактировал вопрос, где код находится в правильном месте и его легко скопировать/вставить. Я все еще новичок в этом. Я попытался использовать PictureBox1.Image = Nothing, но придумал «ошибку времени выполнения 424»: Object Required " –

Private Sub CommandButton1_Click() 


question_clear = MsgBox("Are you sure you want to clear the form?  ", vbYesNo + vbQuestion, "Question") 

If question_clear = 7 Then Exit Sub 'nothing will happen because user clicked no 

If question_clear = 6 Then 

TextBox20.Value = "" 
TextBox21.Value = "" 
TextBox22.Value = "" 
TextBox23.Value = "" 
TextBox24.Value = "" 
TextBox25.Value = "" 

currentqty.Value = "" 
requiredqty.Value = "" 
discqty.Value = "" 

ComboBox1.Value = "" 
ComboBox2.Value = "" 

CheckBox1.Value = False 
CheckBox2.Value = False 
CheckBox3.Value = False 


End If 

ActiveDocument.Bookmarks("picture").Select 
'Selection.GoTo What:=wdGoToBookmark, Name:="picture" 
Selection.InlineShapes(1).Delete 
Selection.InsertAfter "" 
'ActiveDocument.Bookmarks.Add Range:=Selection.Range, _ 
' Name:="picture" 

End Sub

источник

2016-02-25 15:56:10

Как я могу очистить всю форму для нового старта? - включить вставленные фотографии

ответ

Смежные вопросы