Dictionary, or Anything Else to store stuff
you enter a word, or whatever else you want and it brings up a definition, or something else.Note: Saves into the registry key: HKEY_Current_UserSoftwareVB and VBA Program Setting whatever you set the path to
Original Author: Tyler Robbins
Assumptions
create 4 textboxes name them:
AddName, AddDefine, definition, Word
create 1 label, label3 (make its caption blank)
make 2 command buttons
name them:
LookUp, AddWord
Code
Private Sub AddWord_Click()
SaveSetting "Dictionary", "Definitions", AddName, AddDefine 'Saves Your Entry In The Registry
AddName = ""
AddDefine = ""
MsgBox ("Entry Saved")
End Sub
Private Sub LookUp_Click()
Label3.Caption = Word & " Means:"
definition = GetSetting("Dictionary", "Definitions", Word) 'Gets the entry from the registry
If definition = "" Then definition = "No Entry Found" 'if no entry found then it tells you
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.