TextBox

local textBox = script.Parent

local function showSelection()
	if textBox.CursorPosition == -1 or textBox.SelectionStart == -1 then
		print("No selection")
	else
		local selectedText = string.sub(
			textBox.Text,
			math.min(textBox.CursorPosition, textBox.SelectionStart),
			math.max(textBox.CursorPosition, textBox.SelectionStart)
		)
		print('The selection is:"', selectedText, '"')
	end
end

textBox:GetPropertyChangedSignal("CursorPosition"):Connect(showSelection)
textBox:GetPropertyChangedSignal("SelectionStart"):Connect(showSelection)

local textLabel = script.Parent

while true do
	-- Iterate over all the different fonts
	for _, font in pairs(Enum.Font:GetEnumItems()) do
		textLabel.Font = font
		textLabel.Text = font.Name
		task.wait(1)
	end
end

local frame = script.Parent

-- Tạo một Thẻ văn bản hiển thị mỗi phông chữ
for _, font in pairs(Enum.Font:GetEnumItems()) do
	local textLabel = Instance.new("TextLabel")
	textLabel.Name = font.Name
	-- Đặt tính chất văn bản
	textLabel.Text = font.Name
	textLabel.Font = font
	-- Một số thuộc tính render
	textLabel.TextSize = 24
	textLabel.TextXAlignment = Enum.TextXAlignment.Left
	-- Kích thước khung bằng chiều cao của văn bản
	textLabel.Size = UDim2.new(1, 0, 0, textLabel.TextSize)
	-- Thêm vào khung cha
	textLabel.Parent = frame
end

-- Bố trí các khung trong một danh sách (nếu chúng chưa có)
if not frame:FindFirstChildOfClass("UIListLayout") then
	local uiListLayout = Instance.new("UIListLayout")
	uiListLayout.Parent = frame
end

local textBox = script.Parent

local function showSelection()
	if textBox.CursorPosition == -1 or textBox.SelectionStart == -1 then
		print("No selection")
	else
		local selectedText = string.sub(
			textBox.Text,
			math.min(textBox.CursorPosition, textBox.SelectionStart),
			math.max(textBox.CursorPosition, textBox.SelectionStart)
		)
		print('The selection is:"', selectedText, '"')
	end
end

textBox:GetPropertyChangedSignal("CursorPosition"):Connect(showSelection)
textBox:GetPropertyChangedSignal("SelectionStart"):Connect(showSelection)

local TweenService = game:GetService("TweenService")

local textLabel = script.Parent

local content = {
	"Welcome to my game!",
	"Be sure to have fun!",
	"Please give suggestions!",
	"Be nice to other players!",
	"Don't grief other players!",
	"Check out the shop!",
	"Tip: Don't die!",
}

local tweenInfo = TweenInfo.new(1, Enum.EasingStyle.Sine, Enum.EasingDirection.InOut)

local RNG = Random.new()

local fadeIn = TweenService:Create(textLabel, tweenInfo, {
	TextTransparency = 0,
})

local fadeOut = TweenService:Create(textLabel, tweenInfo, {
	TextTransparency = 1,
})

local lastIndex
while true do
	-- Step 0: Fade out before doing anything
	fadeOut:Play()
	task.wait(tweenInfo.Time)

	-- Step 1: pick content that wasn't the last displayed
	local index
	repeat
		index = RNG:NextInteger(1, #content)
	until lastIndex ~= index
	-- Make sure we don't show the same thing next time
	lastIndex = index

	-- Step 2: show the content
	textLabel.Text = content[index]
	fadeIn:Play()
	task.wait(tweenInfo.Time + 1)
end

local textLabel = script.Parent

textLabel.Text = "Kaboom!"

while true do
	for size = 5, 100, 5 do
		textLabel.TextSize = size
		textLabel.TextTransparency = size / 100
		task.wait()
	end
	task.wait(1)
end

local frame = script.Parent

-- Tạo một Thẻ văn bản hiển thị mỗi phông chữ
for _, font in pairs(Enum.Font:GetEnumItems()) do
	local textLabel = Instance.new("TextLabel")
	textLabel.Name = font.Name
	-- Đặt tính chất văn bản
	textLabel.Text = font.Name
	textLabel.Font = font
	-- Một số thuộc tính render
	textLabel.TextSize = 24
	textLabel.TextXAlignment = Enum.TextXAlignment.Left
	-- Kích thước khung bằng chiều cao của văn bản
	textLabel.Size = UDim2.new(1, 0, 0, textLabel.TextSize)
	-- Thêm vào khung cha
	textLabel.Parent = frame
end

-- Bố trí các khung trong một danh sách (nếu chúng chưa có)
if not frame:FindFirstChildOfClass("UIListLayout") then
	local uiListLayout = Instance.new("UIListLayout")
	uiListLayout.Parent = frame
end

local textLabel = script.Parent

-- This text wrapping demo is best shown on a 200x50 px rectangle
textLabel.Size = UDim2.new(0, 200, 0, 50)

-- Some content to spell out
local content = "Here's a long string of words that will "
	.. "eventually exceed the UI element's width "
	.. "and form line breaks. Useful for paragraphs "
	.. "that are really long."

-- A function that will spell text out two characters at a time
local function spellTheText()
	-- Iterate from 1 to the length of our content
	for i = 1, content:len() do
		-- Get a substring of our content: 1 to i
		textLabel.Text = content:sub(1, i)
		-- Color the text if it doesn't fit in our box
		if textLabel.TextFits then
			textLabel.TextColor3 = Color3.new(0, 0, 0) -- Black
		else
			textLabel.TextColor3 = Color3.new(1, 0, 0) -- Red
		end
		-- Wait a brief moment on even lengths
		if i % 2 == 0 then
			task.wait()
		end
	end
end

while true do
	-- Spell the text with scale/wrap off
	textLabel.TextWrapped = false
	textLabel.TextScaled = false
	spellTheText()
	task.wait(1)
	-- Spell the text with wrap on
	textLabel.TextWrapped = true
	textLabel.TextScaled = false
	spellTheText()
	task.wait(1)
	-- Spell the text with text scaling on
	-- Note: Text turns red (TextFits = false) once text has to be
	-- scaled down in order to fit within the UI element.
	textLabel.TextScaled = true
	-- Note: TextWrapped is enabled implicitly when TextScaled = true
	--textLabel.TextWrapped = true
	spellTheText()
	task.wait(1)
end

local textLabel = script.Parent

local moods = {
	["happy"] = "😃",
	["sad"] = "😢",
	["neutral"] = "😐",
	["tired"] = "😫",
}

while true do
	for mood, face in pairs(moods) do
		textLabel.Text = "I am feeling " .. mood .. "! " .. face
		task.wait(1)
	end
end

local textBox = script.Parent

-- The smallest the TextBox will go
local minWidth, minHeight = 10, 10

-- Set alignment so our text doesn't wobble a bit while we type
textBox.TextXAlignment = Enum.TextXAlignment.Left
textBox.TextYAlignment = Enum.TextYAlignment.Top

local function updateSize()
	textBox.Size = UDim2.new(0, math.max(minWidth, textBox.TextBounds.X), 0, math.max(minHeight, textBox.TextBounds.Y))
end

textBox:GetPropertyChangedSignal("TextBounds"):Connect(updateSize)

local textBox = script.Parent

local function hasVowels(str)
	return str:lower():find("[aeiou]")
end

local function onTextChanged()
	local text = textBox.Text
	-- Check for vowels
	if hasVowels(text) then
		textBox.TextColor3 = Color3.new(0, 0, 0) -- Black
	else
		textBox.TextColor3 = Color3.new(1, 0, 0) -- Red
	end
end

textBox:GetPropertyChangedSignal("Text"):Connect(onTextChanged)

-- Place this code in a LocalScript inside a TextBox
local textBox = script.Parent

local secretWord = "roblox"
local colorNormal = Color3.new(1, 1, 1) -- white
local colorWrong = Color3.new(1, 0, 0) -- red
local colorCorrect = Color3.new(0, 1, 0) -- green

-- Initialize the state of the textBox
textBox.ClearTextOnFocus = true
textBox.Text = ""
textBox.Font = Enum.Font.Code
textBox.PlaceholderText = "What is the secret word?"
textBox.BackgroundColor3 = colorNormal

local function onFocused()
	textBox.BackgroundColor3 = colorNormal
end

local function onFocusLost(enterPressed, _inputObject)
	if enterPressed then
		local guess = textBox.Text
		if guess == secretWord then
			textBox.Text = "ACCESS GRANTED"
			textBox.BackgroundColor3 = colorCorrect
		else
			textBox.Text = "ACCESS DENIED"
			textBox.BackgroundColor3 = colorWrong
		end
	else
		-- The player stopped editing without pressing Enter
		textBox.Text = ""
		textBox.BackgroundColor3 = colorNormal
	end
end

textBox.FocusLost:Connect(onFocusLost)
textBox.Focused:Connect(onFocused)

-- Đặt mã này vào một LocalScript trong một TextLabel/TextButton
local textLabel = script.Parent

-- Một số màu chúng ta sẽ sử dụng với TextColor3
local colorNormal = Color3.new(0, 0, 0) -- đen
local colorSoon = Color3.new(1, 0.5, 0.5) -- đỏ
local colorDone = Color3.new(0.5, 1, 0.5) -- xanh lá

-- Vòng lặp vô cực
while true do
	-- Đếm ngược từ 10 đến 1
	for i = 10, 1, -1 do
		-- Đặt văn bản
		textLabel.Text = "Time: " .. i
		-- Chỉnh màu dựa trên bao nhiêu thời gian còn lại
		if i > 3 then
			textLabel.TextColor3 = colorNormal
		else
			textLabel.TextColor3 = colorSoon
		end
		task.wait(1)
	end
	textLabel.Text = "GO!"
	textLabel.TextColor3 = colorDone
	task.wait(2)
end

local ReplicatedStorage = game:GetService("ReplicatedStorage")

-- Đặt một giá trị chuỗi có tên là "GameState" trong ReplicatedStorage
local vGameState = ReplicatedStorage:WaitForChild("GameState")
-- Đặt mã này vào một Thẻ Văn Bản
local textLabel = script.Parent

-- Một số màu chúng ta sẽ sử dụng với TextColor3
local colorNormal = Color3.new(0, 0, 0) -- đen
local colorCountdown = Color3.new(1, 0.5, 0) -- màu cam
local colorRound = Color3.new(0.25, 0.25, 1) -- màu xanh lam

-- Chúng tôi sẽ chạy chức năng này để cập nhật TextLabel như tình trạng của
-- thay đổi trò chơi.
local function update()
	-- Cập nhật văn bản
	textLabel.Text = "State: " .. vGameState.Value
	-- Đặt màu của văn bản dựa trên tình trạng trò chơi hiện tại
	if vGameState.Value == "Countdown" then
		textLabel.TextColor3 = colorCountdown
	elseif vGameState.Value == "Round" then
		textLabel.TextColor3 = colorRound
	else
		textLabel.TextColor3 = colorNormal
	end
end

-- Mẫu: cập nhật một lần khi chúng tôi bắt đầu và cũng khi vGameState thay đổi
-- Chúng ta nên luôn luôn xem GameState được cập nhật nhất.
update()
vGameState.Changed:Connect(update)

local textLabel = script.Parent

-- This text wrapping demo is best shown on a 200x50 px rectangle
textLabel.Size = UDim2.new(0, 200, 0, 50)

-- Some content to spell out
local content = "Here's a long string of words that will "
	.. "eventually exceed the UI element's width "
	.. "and form line breaks. Useful for paragraphs "
	.. "that are really long."

-- A function that will spell text out two characters at a time
local function spellTheText()
	-- Iterate from 1 to the length of our content
	for i = 1, content:len() do
		-- Get a substring of our content: 1 to i
		textLabel.Text = content:sub(1, i)
		-- Color the text if it doesn't fit in our box
		if textLabel.TextFits then
			textLabel.TextColor3 = Color3.new(0, 0, 0) -- Black
		else
			textLabel.TextColor3 = Color3.new(1, 0, 0) -- Red
		end
		-- Wait a brief moment on even lengths
		if i % 2 == 0 then
			task.wait()
		end
	end
end

while true do
	-- Spell the text with scale/wrap off
	textLabel.TextWrapped = false
	textLabel.TextScaled = false
	spellTheText()
	task.wait(1)
	-- Spell the text with wrap on
	textLabel.TextWrapped = true
	textLabel.TextScaled = false
	spellTheText()
	task.wait(1)
	-- Spell the text with text scaling on
	-- Note: Text turns red (TextFits = false) once text has to be
	-- scaled down in order to fit within the UI element.
	textLabel.TextScaled = true
	-- Note: TextWrapped is enabled implicitly when TextScaled = true
	--textLabel.TextWrapped = true
	spellTheText()
	task.wait(1)
end

local textLabel = script.Parent

textLabel.Text = "Kaboom!"

while true do
	for size = 5, 100, 5 do
		textLabel.TextSize = size
		textLabel.TextTransparency = size / 100
		task.wait()
	end
	task.wait(1)
end

local textLabel = script.Parent

-- How fast the highlight ought to blink
local freq = 2

-- Set to yellow highlight color
textLabel.TextStrokeColor3 = Color3.new(1, 1, 0)

while true do
	-- math.sin oscillates from -1 to 1, so we change the range to 0 to 1:
	local transparency = math.sin(workspace.DistributedGameTime * math.pi * freq) * 0.5 + 0.5
	textLabel.TextStrokeTransparency = transparency
	task.wait()
end

local textLabel = script.Parent

-- How fast the highlight ought to blink
local freq = 2

-- Set to yellow highlight color
textLabel.TextStrokeColor3 = Color3.new(1, 1, 0)

while true do
	-- math.sin oscillates from -1 to 1, so we change the range to 0 to 1:
	local transparency = math.sin(workspace.DistributedGameTime * math.pi * freq) * 0.5 + 0.5
	textLabel.TextStrokeTransparency = transparency
	task.wait()
end

local TweenService = game:GetService("TweenService")

local textLabel = script.Parent

local content = {
	"Welcome to my game!",
	"Be sure to have fun!",
	"Please give suggestions!",
	"Be nice to other players!",
	"Don't grief other players!",
	"Check out the shop!",
	"Tip: Don't die!",
}

local tweenInfo = TweenInfo.new(1, Enum.EasingStyle.Sine, Enum.EasingDirection.InOut)

local RNG = Random.new()

local fadeIn = TweenService:Create(textLabel, tweenInfo, {
	TextTransparency = 0,
})

local fadeOut = TweenService:Create(textLabel, tweenInfo, {
	TextTransparency = 1,
})

local lastIndex
while true do
	-- Step 0: Fade out before doing anything
	fadeOut:Play()
	task.wait(tweenInfo.Time)

	-- Step 1: pick content that wasn't the last displayed
	local index
	repeat
		index = RNG:NextInteger(1, #content)
	until lastIndex ~= index
	-- Make sure we don't show the same thing next time
	lastIndex = index

	-- Step 2: show the content
	textLabel.Text = content[index]
	fadeIn:Play()
	task.wait(tweenInfo.Time + 1)
end

local textLabel = script.Parent

textLabel.Text = "Kaboom!"

while true do
	for size = 5, 100, 5 do
		textLabel.TextSize = size
		textLabel.TextTransparency = size / 100
		task.wait()
	end
	task.wait(1)
end

local textLabel = script.Parent

-- This text wrapping demo is best shown on a 200x50 px rectangle
textLabel.Size = UDim2.new(0, 200, 0, 50)

-- Some content to spell out
local content = "Here's a long string of words that will "
	.. "eventually exceed the UI element's width "
	.. "and form line breaks. Useful for paragraphs "
	.. "that are really long."

-- A function that will spell text out two characters at a time
local function spellTheText()
	-- Iterate from 1 to the length of our content
	for i = 1, content:len() do
		-- Get a substring of our content: 1 to i
		textLabel.Text = content:sub(1, i)
		-- Color the text if it doesn't fit in our box
		if textLabel.TextFits then
			textLabel.TextColor3 = Color3.new(0, 0, 0) -- Black
		else
			textLabel.TextColor3 = Color3.new(1, 0, 0) -- Red
		end
		-- Wait a brief moment on even lengths
		if i % 2 == 0 then
			task.wait()
		end
	end
end

while true do
	-- Spell the text with scale/wrap off
	textLabel.TextWrapped = false
	textLabel.TextScaled = false
	spellTheText()
	task.wait(1)
	-- Spell the text with wrap on
	textLabel.TextWrapped = true
	textLabel.TextScaled = false
	spellTheText()
	task.wait(1)
	-- Spell the text with text scaling on
	-- Note: Text turns red (TextFits = false) once text has to be
	-- scaled down in order to fit within the UI element.
	textLabel.TextScaled = true
	-- Note: TextWrapped is enabled implicitly when TextScaled = true
	--textLabel.TextWrapped = true
	spellTheText()
	task.wait(1)
end

-- Sao chép cái này vào một LocalScript trong một TextLabel/TextButton/TextBox
local textLabel = script.Parent

local function setAlignment(xAlign, yAlign)
	textLabel.TextXAlignment = xAlign
	textLabel.TextYAlignment = yAlign
	textLabel.Text = xAlign.Name .. " + " .. yAlign.Name
end

while true do
	-- Lặp lại trên cả mục Item TextXAlignment và TextYAlignment
	for _, yAlign in pairs(Enum.TextYAlignment:GetEnumItems()) do
		for _, xAlign in pairs(Enum.TextXAlignment:GetEnumItems()) do
			setAlignment(xAlign, yAlign)
			task.wait(1)
		end
	end
end

-- Sao chép cái này vào một LocalScript trong một TextLabel/TextButton/TextBox
local textLabel = script.Parent

local function setAlignment(xAlign, yAlign)
	textLabel.TextXAlignment = xAlign
	textLabel.TextYAlignment = yAlign
	textLabel.Text = xAlign.Name .. " + " .. yAlign.Name
end

while true do
	-- Lặp lại trên cả mục Item TextXAlignment và TextYAlignment
	for _, yAlign in pairs(Enum.TextYAlignment:GetEnumItems()) do
		for _, xAlign in pairs(Enum.TextXAlignment:GetEnumItems()) do
			setAlignment(xAlign, yAlign)
			task.wait(1)
		end
	end
end

local ContextActionService = game:GetService("ContextActionService")

local ACTION_NAME = "FocusTheTextBox"

local textBox = script.Parent

local function handleAction(actionName, inputState, _inputObject)
	if actionName == ACTION_NAME and inputState == Enum.UserInputState.End then
		textBox:CaptureFocus()
	end
end

ContextActionService:BindAction(ACTION_NAME, handleAction, false, Enum.KeyCode.Q)

local textBox = script.Parent

local function onFocused()
	task.wait(5)
	textBox:ReleaseFocus()
end

textBox.Focused:Connect(onFocused)

local gui = script.Parent
local textBox = gui.TextBox

local function focusLost(enterPressed)
	if enterPressed then
		print("Focus was lost because enter was pressed!")
	else
		print("Focus was lost without enter being pressed")
	end
end

textBox.FocusLost:Connect(focusLost)

local textBox = script.Parent

local function onFocusLost(enterPressed, inputThatCausedFocusLost)
	if enterPressed then
		print("Player pressed Enter")
	else
		print("Player pressed", inputThatCausedFocusLost.KeyCode)
	end
end

textBox.FocusLost:Connect(onFocusLost)

local textBox = script.Parent

local function onFocused()
	print("Focused")
end

textBox.Focused:Connect(onFocused)