ۋەئەلەيكۇم ئەسسالام!

ۋاقتى ئۆتتى دەپ قارىسىزڭىز.jsp ئۆگىنىڭ.

ۋەئەلەيكۇم ئەسسالام!

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()
Me.Picture1.Picture = LoadPicture("c:\a.bmp")
End Sub

بۇندىن كېيىن ئۆزىڭىز زادى ھەل قىلالمىغان مەسىلە بولسا،بىزنىڭ ۋە باشقىلارنىڭ تېخنىكا مەخپىيەتلىكى(بىزنىڭ ياكى باشقا ئۇيغۇر يۇمشاق دېتال شىركەتلىرىنىڭ مەسھۇلاتلىرىغا ئىشلىتىلگەن تېخنىكا) بولمىسا سوراڭ،بولمىسا ئۆزىڭىزمۇ ئىزدىنىپ بېقىڭ.

ۋەئەلەيكۇم ئەسسالام!

لىنۇكىسنىڭ دېسكا فورمات شەكلى بىلەن windosw نىڭ ئوخشىمايدىغاندۇ،شۇنىڭغا دىققەت قىلىڭ.

ۋەئەلەيكۇم ئەسسالام!

ئاساسلىق پىرىنسىپىنىلا دەپ بېرەيلى قالغىنىنى ئۆزىڭىز ئەمەلگە ئاشۇرۇڭ.

Private Sub Command1_Click()
Dim i As Integer
Dim pinyin As String

For i = 1 To Len(Me.Text1.Text)
 Select Case Mid(Me.Text1.Text, i, 1)
  Case "我": pinyin = pinyin & "WO "
  Case "你": pinyin = pinyin & "NI "
  Case "她": pinyin = pinyin & "TA "
  Case Else: pinyin = pinyin & Mid(Me.Text1.Text, i, 1)
 End Select
Next i

Me.Text2.Text = pinyin
End Sub

ۋەئەلەيكۇم ئەسسالام!

jawa ئەمەس java كودىدەك قىلىدۇ.قانداق قىلسا ھەممە يەردە قوللايدىغالىقىنى بىلمەيدىكەنمىز،ئۇستىلار بىر نېمە دەپ باقسۇن.

ۋەئەلەيكۇم ئەسسالام!

ئەڭ ياخشىسى win7 شارائىتىدا تۇرۇپ تۈزەڭ،سىرتقى كونتىرولنى ئامال بار ئاز ئىشلىتىڭ.سىستېما دېسكىسىغا قارتا ئامال بار مەشغۇلات قىلماڭ.

ۋەئەلەيكۇم ئەسسالام!

ۋەئەلەيكۇم ئەسسالام!

تور بېكىتىمىزدىكى "ئۇيغۇر تىلىم" سەھىپىسىنىڭ "كورېكتور"دېگەن تۈرىدىن خالىغىنىڭىزنى چۈشۈرىۋېلىڭ.

يەنە بىرمەزگىلدىن كېيىن بىزمۇ بىرنى تارقاتماقچى.

ۋەئەلەيكۇم ئەسسالام!

dim s,s1,s2 as string
s=text1.text
s1=mid(s,7,8)
s2=mid(s,16,1)
if val(s2) mod 2<>0 then
s2="Er"
else
s2="Ayal"
end if
text2.text=s1
text3.text=s2

بۇ كود 18خانىلىق  كىملىك نۇمۇرغا ئىشلەيدۇ.text1 گە كىملىك نومۇرىنى كىرگۈزىسىز،text2 گە توغۇلغان ۋاقتىنى،text3 كە جىنسىنى كۆرسىتىپ بېرىدۇ.

ۋەئەلەيكۇم ئەسسالام!

كونۇپكا تاختىسىدا بۇ ھەرىپ يوقكەن، لىكىن سىز تىك ئەلف يازماقچى بولغان ئورۇنغا 0670 نى يېزىپ كونۇپكا تاختىسىدىن Alt+X نى بىر باسسىڭىز 0670 تىك ئەلف كە ئايلىنىدۇ.

لىكىن قۇرئاندىن تىك زىرنى تاپالماي قالدىم، ئەگەر سىز يېزىلغان بىرەر جاينى تاپسىڭىز شۇ ھەرىپنىڭ كەنىدە Alt+X نى باسسىڭىز تىك زىرنىڭ نومۇرىنى چىقىرىپ بېرىدۇ. شۇ نومۇرنى يادلىۋالسىڭىز بولىدۇ.

ۋەئەلەيكۇم ئەسسالام!

سىز تىلفۇن ئارقىلىق ئالاقىلىشىڭ. 13899994277

ئەسسالامۇ ئەلەيكۇم!

سىز تىلفۇن ئارىلىق ئالاقىلىشىڭ. 138999942777

ۋەئەلەيكۇم ئەسسالام!

1.   500 خاتالىق IIS نورمال قاچىلانمىغان، ياكى نومال تەڭشەلمىگەن بولىشى مۇمكىن.

2. سىزنىڭ كومپيۇتېرىڭىزنىڭ ھۆججەتنىڭ كىڭايتىلگەن نامىنى يوشۇرۇشقا تەڭشەلىككەن. سىز بۇ رەسىم بويىچە مەشغۇلات قىلىڭ.

ۋەئەلەيكۇم ئەسسالام!

Option Explicit
Public pathini As String
Public mark As Integer '控制是否自启动的标志变量（1自启动，0不自启动）

'添加删除自启动项目的API函数声明

Public Const HKEY_CLASSES_ROOT = &H80000000

Public Const HKEY_CURRENT_USER = &H80000001

Public Const HKEY_LOCAL_MACHINE = &H80000002

Public Const HKEY_USERS = &H80000003

Public Const HKEY_PERFORMANCE_DATA = &H80000004

Public Const HKEY_CURRENT_CONFIG = &H80000005

Public Const HKEY_DYN_DATA = &H80000006

Public Const REG_NONE = 0

Public Const REG_SZ = 1

Public Const REG_EXPAND_SZ = 2

Public Const REG_BINARY = 3

Public Const REG_DWORD = 4

Public Const REG_DWORD_BIG_ENDIAN = 5

Public Const REG_MULTI_SZ = 7

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

'在注册表中添加删除自启动项目的模块

Sub Main()

'　定义hKey　为句柄变量、SubKey为注册表RUN项目变量、Exe为程序名变量

Dim hKey As Long, SubKey As String, Exe As String



'将程序设定成随　Windows　启动而启动

'取程序所在路径，判断是否为根目录并分别加上程序全名并赋值给变量Exe

If Right(App.Path, 1) = "\" Then

Exe = App.Path + App.EXEName + ".exe" '　根目录情况

Else: Exe = App.Path + "\" + App.EXEName + ".exe" '　非根目录情况

End If

SubKey = "Software\Microsoft\Windows\CurrentVersion\Run" '　设置项目
RegCreateKey HKEY_LOCAL_MACHINE, SubKey, hKey '　取得句柄
RegSetValueEx hKey, "时间助手", 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) + 1 '　写入键值

RegCloseKey hKey '　关闭句柄

End Sub

ۋەئەلەيكۇم ئەسسالام!

بۇ كوددىن پايدىلىنىپ كۆرۈڭ

Dim Ex As Object
        Ex = CreateObject("Excel.Application")
        Ex.Visible = True
        Ex.Caption = "UUS CMS"
        Ex.Workbooks.Add()
        Ex.Range("B3").Select()
        Ex.ActiveCell.FormulaR1C1 = "123"

        Ex.ActiveCell.FormulaR1C1 = "ff"
        Ex.Sheets("Sheet2").Select()
        Ex.ActiveCell.FormulaR1C1 = "fff"
        Ex.Sheets("Sheet1").Select()
        Ex.Range("B15").Select()
        Ex.ActiveCell.FormulaR1C1 = "fff"
        Ex.Range("G10").Select()