Advertisement
Guest User

Untitled

a guest
Aug 13th, 2017
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.57 KB | None | 0 0
  1. concommand.Add("vb4_register", function( p, c, a )
  2.     local DFrame1 = vgui.Create('DFrame')
  3.     DFrame1:SetSize(300, 300)
  4.     DFrame1:SetPos(0, 0)
  5.     DFrame1:SetTitle('Forum Registeration')
  6.     DFrame1:SetSizable(true)
  7.     DFrame1:SetDeleteOnClose(false)
  8.     DFrame1:MakePopup()
  9.  
  10.     local DTextEntry1 = vgui.Create('DTextEntry', DFrame1)
  11.     DTextEntry1:SetSize(100, 20)
  12.     DTextEntry1:SetPos(5, 50)
  13.     DTextEntry1:SetText('')
  14.  
  15.     local DLabel1 = vgui.Create('DLabel', DFrame1)
  16.     DLabel1:SetPos(8, 30)
  17.     DLabel1:SetText('Username:')
  18.     DLabel1:SizeToContents()
  19.  
  20.     local DTextEntry2 = vgui.Create('DTextEntry', DFrame1)
  21.     DTextEntry2:SetSize(100, 20)
  22.     DTextEntry2:SetPos(5, 100)
  23.     DTextEntry2:SetText('')
  24.  
  25.     local DLabel2 = vgui.Create('DLabel', DFrame1)
  26.     DLabel2:SetPos(8, 80)
  27.     DLabel2:SetText('Password:')
  28.     DLabel2:SizeToContents()
  29.  
  30.     local DLabel3 = vgui.Create('DLabel', DFrame1)
  31.     DLabel3:SetPos(8, 130)
  32.     DLabel3:SetText('Email:')
  33.     DLabel3:SizeToContents()
  34.  
  35.     local DTextEntry3 = vgui.Create('DTextEntry', DFrame1)
  36.     DTextEntry3:SetSize(100, 20)
  37.     DTextEntry3:SetPos(5, 150)
  38.     DTextEntry3:SetText('')
  39.  
  40.     // This is if you want a logo right of your username, password, and email.
  41.     /*
  42.     local DPanel1 = vgui.Create('DImage', DFrame1)
  43.     DPanel1:SetSize(296, 272)
  44.     DPanel1:SetPos(1, 25)
  45.     Dpanel1:SetMaterial( ) // Place some image here
  46.     */
  47.    
  48.     local DButton1 = vgui.Create('DButton', DFrame1)
  49.     DButton1:SetSize(70, 25)
  50.     DButton1:SetPos(115, 271)
  51.     DButton1:SetText('Submit')
  52.     DButton1.DoClick = function()
  53.         p:Register( DTextEntry1:GetValue(), DTextEntry2:GetValue(), DTextEntry3:GetValue() )
  54.     end
  55. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement