InputBox Function

ཌའི་ལོག་ནང་ལག་ལེན་པ་གི་ཨིན་པུཊི་ཚིག་ཡིག་ནུས་སྤེལ་་བཀྲམ་བཏོན་འབདཝ་ཨིན། ཨིན་པུཊི་དེ་འགྱུར་ཅན་ལུ་འགན་སྤྲོད་ཡོདཔ་ཨིན།

ཨིན་པུཊི་སྒྲོམ་ གསལ་བཤད་དེ་་ ཌའི་ལོག་ལས་བརྒྱུད་ཚིག་ཡིག་བཙུགས་ནི་གི་ཐབས་ལམ་སྟབས་བདེ་ཏོག་ཏོ་ཅིག་ཨིན། བཏུབ་ ཡང་ན་ སླར་ལོག་ཨེབ་དེ་ ཨེབ་གཏང་འབད་དེ་གིས་འབད་ཨིན་པུཊི་དེ་ངེས་དཔྱད་འབད། ཨིན་པུཊི་དེ་ལས་འགན་སླར་ལོག་གནས་གོང་བཟུམ་སྦེ་སླར་ལོག་ཡོདཔ་ཨིན། ཁྱོད་ཀྱིས་ཌའི་ལོག་དང་གཅིག་ཁར་ཆ་མེད་གཏང་ཁ་བསྡམ་པ་ཅིན་ ཨིན་པུཊི་སྒྲོམ་གྱིས་ཡིག་རྒྱུན་རིང་ཚད་ཀླད་ཀོར་སླར་ལོགཔ་ཨིན། ("").

ཚིག་སྦྱོར:

ཨིན་པུཊི་སྒྲོམ (Msg As String[, Title As String[, Default As String[, x_pos As Integer, y_pos As Integer]]]])

གནས་གོང་སླར་ལོག:

ཡིག་རྒྱུན།

ཚད་བཟུང་:

འཕྲིན་དོན: ཡིག་རྒྱུན་གསལ་བརྗོད་ཌའི་ལོག་སྒྲོམ་འདི་ནང་གི་འཕྲིན་དོན་འདི་བཟུམ་སྦེ་བཀྲམ་བཏོན་ཡོདཔ་ཨིན།

མགོ་མིང: ཡིག་རྒྱུན་གསལ་བརྗོད་ཌའི་ལོག་སྒྲོམ་འདི་གིམགོ་མིང་ཕྲ་རིང་ནང་བཀྲམ་བཏོན་ཡོདཔ་ཨིན།

སྔོན་སྒྲིག: ཡིག་རྒྱུན་གསལ་བརྗོད་གཞན་ཨིན་པུཊི་འདི་མ་བྱིན་པ་ཅིན་སྔོན་སྒྲིག་བཟུམ་སྦེ་ཚིག་ཡིག་སྒྲོམ་འདི་ནང་བཀྲམ་བཏོན་ཡོདཔ་ཨིན།

ཨེགསི_པོསི: ཧྲིལ་ཨང་གསལ་བརྗོད་དེ་ཌའི་ལོག་གི་ཐད་སྙོམས་གནས་ས་དེ་གསལ་བཀོད་འབདཝ་ཨིན། གནས་ས་དེ་ཡང་དག་མཉམ་འབྲེལ་ཨིནམ་ལས་་ཨོ་པན་ཨོ་པིས་འཇུག་སྤྱོད་གི་ཝིན་ཌོ་དེ་ལུ་འབྲེལ་བསྟུན་འབད་ནི་མེད།

y_pos: ཧྲིལ་ཨང་གསལ་བརྗོད་ཌའི་ལོག་འདིའི་ཀེར་ཕྲང་གནས་ས་འདི་གསལ་བཀོད་འབདཝ་ཨིན། གནས་ས་འདི་ཡང་དག་འགོ་འདྲེན་དང་ ཨོཔིསི་འཇུག་སྤྱོད་འདིའི་ཝིན་ཌོ་འདི་ལུ་གཞི་བསྟུན་མི་འབད།

ག་དེམ་ཅིག་འབད་ x_pos དང་ y_pos སྐྱུར་ཡོད་པ་ཅིན་ ཌའི་ལོག་འདི་གསལ་གཞི་གུ་དབུ་སྒྲིག་ཡོདཔ་ཨིན། གནས་ས་འདི་ ནང་ངསལ་བཀོད་ཡོདཔ་ཨིནཊིཝིབསི.

དཔེར་བརྗོད:

Sub ExampleInputBox

Dim sText As String

    ཨེསི་ཚིག་ཡིག = ཨིནཔུཊི་སྒྲོམ ("Please enter a phrase:","Dear User")

    འཕྲིན་དོན་སྒྲོམ ( sText , 64, "Confirmation of phrase")

End Sub