የማያ ገጽ መቆለፊያ (VB.NET): 3 ደረጃዎች

2024 ደራሲ ደራሲ: John Day | [email protected]. ለመጨረሻ ጊዜ የተሻሻለው: 2024-01-30 07:35

እኔ የራሴን ማያ ገጽ መቆለፊያ እንዴት እንደሠራሁ ላሳይዎት። ስለዚህ ምናልባት እርስዎ እራስዎ ማድረግ ይችላሉ። ወይም እርስዎ የእኔን ብቻ መጠቀም ይችሉ ይሆናል።..ኔት.

ደረጃ 1 ማያ ገጹን መሥራት (ክፍል 1)

እዚህ የማያ ገጽ መቆለፊያውን የመጀመሪያ ክፍል ላሳይዎት.. የመጀመሪያው ስዕል የእኔን ማያ ገጽ መቆለፊያ ሲያሄዱ የሚመጣው መስኮት ነው። በዚህ ላይ የይለፍ ቃሉን ማዘጋጀት ይችላሉ። እሱን መርሳት እንዳይችሉ ሁል ጊዜ። እንዲሁም ፕሮግራሜ 1 ፋይል ብቻ ነው። እርስዎ ለማየትም የማየት አማራጭ አለዎት። ይህ የቁልፍ ማያ ገጹ በትንሹ እንዲታይ ነው ስለዚህ የዴስክቶፕዎ ስዕል ሲጠፋ ማየት ይችላሉ። አሁን ያደረግሁት እዚህ ነው - ለይለፍ ቃል

የግል ንዑስ TextBox1_TextChanged (ByVal ላኪ እንደ System. Object ፣ ByVal e As System. EventArgs) TextBox1 ን ያስተናግዳል። TextBox1. TextChanged TextBox1. Text = Form1. UseShellExecute = እውነተኛ psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () ጨርስ ከሆነ ጨርስ ይህ የሚያደርገው በጽሑፍ ሣጥን 1 ውስጥ ያለው ጽሑፍ በመጀመሪያው መስኮት ላይ ካዘጋጁት ጽሑፍ ጋር እኩል መሆኑን ለማየት ቼኮች ናቸው። ከዚያ እሱ የሚያከናውን ከሆነ ተግባሩ ሥራ አስኪያጁን ይገድላል ፣ እና explorer.exe ን እንደገና ያስጀምራል። በ bit በኩል ማየት አለ - የግል ንዑስ ቅጽ 2_Load (ByVal ላኪ እንደ ስርዓት። ሂደት እንደ ስርዓት። ዲግኖስቲክስ። (psi) Form1. CheckBox1. Checked = True then Me. Opacity = 0.5 Else Button1. Show () End End End ይህ የስክሪፕት ቁራጭ Explor.exe ን ይገድላል ስለዚህ አንድ ሰው የማያ ገጽ መቆለፊያዬን ቢያልፍ እንኳ አይችሉም ማንኛውንም ነገር ለማድረግ! ከዚያ 'ይመልከቱ' የሚለው ሳጥን ምልክት ተደርጎበት እንደሆነ ይፈትሻል። እሱ ካለው ብሩህነትን ወደ 0.5 ያዘጋጃል። ካልሆነ ከዚያ የለውጡን የጀርባ ቁልፍ ያሳያል።

ደረጃ 2 ማያ ገጹን መሥራት (ክፍል 2)

የተግባር አቀናባሪውን እንዴት እንደሰረዘው እና በሌሎች መስኮቶች ላይ እንዴት እንደሚናገር እዚህ እንዳሳየኋቸው። እርስዎ እንዳዘጋጁት የላይኛው ፎርም ለማቀናጀት እኔ።:

የግል ንዑስ ቅጽ 2_LostFocus (ByVal ላኪ እንደ ዕቃ ፣ ByVal e እንደ System. EventArgs) ያስተናግደኛል። ትኩረት ሲጠፋ የተግባር አስተዳዳሪን ይደብቁ። ግን እሱ እንዲሁ ምክንያቱም እሱ የተግባር አቀናባሪ በጭራሽ እንዳልተሠራ ይመስላል። ትክክለኛውን የይለፍ ቃል ሲያስገቡ… እሱ ተግባር የተግባር አስተዳዳሪን ይገድላል። keyData እንደ System. Windows. Forms. Keys) እንደ Boolean Select Case (keyData) Case Keys. ይመለሱ እውነተኛ Case Keys. Alt ወይም Keys. F4 ተመለስ እውነተኛ መጨረሻ ምረጥ MyBase. ProcessDialogKey (keyData) End Functionwitch alt F4 ን ከንቱ ያደርገዋል!.. እና በመቆጣጠሪያ ቁልፉ ተመሳሳይ ለማድረግ ይሞክራል ፣ ግን ያ አልሰራም.. ግን በሌሎች ስርዓቶች ላይ ቢሆን ብቻ ትቼዋለሁ።

ደረጃ 3: የማያ ገጽ መቆለፊያ

ይህንን መመሪያዎን ለሁሉም የ VB. NET ፕሮጄክቶችዎ ጠቃሚ ሆኖ አግኝተውታል ብዬ ተስፋ አደርጋለሁ። የዚህን ክፍል ካልገባዎት ወይም በአንዱ ፕሮጄክቶችዎ ላይ እገዛ ከፈለጉ እባክዎን አስተያየት ይተውልኝ ወይም እኔን ያስተምሩኝ። እና እባክዎን መልሱን ይስጡኝ ማንኛውም ችግሮች እና እባክዎን ደረጃ ይስጡ =] ማውረድ ከፈለጉ ማያ ገጹ lock.exe ይነፋል። ልክ እንደ.exeto የተቀመጠ መሆኑን ያረጋግጡ እና ጠቅ ያድርጉ።