กด esc ไม่ได้ เนื่องจาก เปิดใช้ photoshop

กด esc ไม่ได้ เนื่องจาก เปิดใช้ photoshop

โค็ดแก้ไข กรณีสั่งพิมพ์ออก pdf หรือ printer ภาษาไทย ของ control label อ่านไม่ออก แต่ ของ ctrl text อ่านออก ใน windows 7- 8

โค็ดแก้ไข กรณีสั่งพิมพ์ออก pdf หรือ printer  ภาษาไทย ของ control label อ่านไม่ออก แต่ ของ ctrl text อ่านออก ใน windows 7- 8

* paste   CaptionToText() in form load
Public Sub CaptionToText()
Dim strComputer
Dim objWMIService, colOperatingSystems, objOperatingSystem
Dim ctrl, i
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
   If InStr(1, objOperatingSystem.Caption, "windows xp", vbTextCompare) Then
        
   Else
       'win 7, 8
       For Each ctrl In Me.Controls
            If TypeOf ctrl Is Label Then
            i = i + 1
                     Load Me.txtMove(i)
                     If ctrl.Name = "lblCode" Then
                            Me.txtMove(i).Move ctrl.Left, ctrl.Top - 100, ctrl.Width, ctrl.Height
                     ElseIf ctrl.Name = "lbltelHome" Then
                            Me.txtMove(i).Move ctrl.Left, ctrl.Top - 150, ctrl.Width, ctrl.Height
                     Else
                            Me.txtMove(i).Move ctrl.Left, ctrl.Top, ctrl.Width, ctrl.Height
                     End If
                     
                  
                     Me.txtMove(i).Visible = True
                     Me.txtMove(i).Text = ctrl.Caption
                     Me.txtMove(i).ForeColor = ctrl.ForeColor
                     Me.txtMove(i).Font = ctrl.Font
                     Me.txtMove(i).FontBold = ctrl.FontBold
                     Me.txtMove(i).FontSize = ctrl.FontSize
                     ctrl.Visible = False
            End If
            
       Next ctrl
        
   End If
Next
End Sub

autocad นำ block เข้ามาใช้งาน

autocad นำ block เข้ามาใช้งาน ใช้ adcenter คำสั่ง ถ้าต้องการเปลี่ยนสีหรือ ออกจาก  block เมื่อนำเข้ามาให้ explode ก็จะแก้ไขได้เป็นตัวๆไป

กรณี autocad 2012 ribbon modify หายไปจาก toolbar ให้ คลิกไป ribbon ตัวอื่น เด่วมันก็กลับมาให้เห้นเอง

windows media classic Rotate

Thanks to these instructions for letting us discover this PnS Rotate in MPC!
Using Rotate Y(+) as suggested will not exactly rotate an upside-down video though. You will have to use Rotate Z- (Alt + NumPad3) to rotate the video 90 degrees. Check one of the references mentioned here: http://www.gamingforce.org/forums/help-desk/15667-flipping-video-media-player-classic.html

ให้ XP ไม่จำค่า username password เมื่อ login เข้า server

http://www.thaiadmin.org/board/index.php?topic=48451.0
-กด start
-กด control panel
-กด user accounts
-กด เลือก user ที่ต้องการเคลียรuser,password ที่เครื่องเคยจำไว้
-กด manage my network passwords ที่อยู่ด้านซ้าย
จะมีหน้าต่าง stores user names and passwords ขึ้นมา
ข้างในจะมี user,password ที่เคยติดต่อserverไว้
เลือกตัวที่เราต้องการถอนแล้วกด remove กด ok

ถ้าจะทำให้มันไม่จำอีกก็ไปที่ security policy แล้วก็ set

Security Options -> Network access: Do not allow storage of credentials or .NET Passports for network authentication เป็น Enabled

และต้อง restart ด้วย

ลองดูที่นี้นะครับ

ลองใช้คำสั่งที่เครื่องที่ต้องการ เช่น   Net Session \\Com1 /delete 

ลองหาข้อมูลเพิ่มเติมดูนะครับ ไม่รู้ว่าใช่ที่ต้องการไหม

http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/ntcmds.mspx?mfr=true

inputbox set to password input

http://www.freevbcode.com/ShowCode.asp?ID=1214

'PUT BELOW DECLARATIONS IN A .BAS MODULE

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias _
   "FindWindowA" (ByVal lpClassName As String, _
   ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias _
  "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
   ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
 
Public Declare Function SetTimer& Lib "user32" _
  (ByVal hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal _
   lpTimerFunc&)

Private Declare Function KillTimer& Lib "user32" _
  (ByVal hwnd&, ByVal nIDEvent&)

Private Declare Function SendMessage Lib "user32" Alias _
    "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long

Const EM_SETPASSWORDCHAR = &HCC
Public Const NV_INPUTBOX As Long = &H5000&


'PUT THIS SUB IN A .BAS MODULE

Public Sub TimerProc(ByVal hwnd&, ByVal uMsg&, _
   ByVal idEvent&, ByVal dwTime&)

    Dim EditHwnd As Long

' CHANGE APP.TITLE TO YOUR INPUT BOX TITLE.

    EditHwnd = FindWindowEx(FindWindow("#32770", App.Title), _
       0, "Edit", "")

    Call SendMessage(EditHwnd, EM_SETPASSWORDCHAR, Asc("*"), 0)
    KillTimer hwnd, idEvent
End Sub

'THIS IS HOW TO USE THE CODE FROM WITHIN A FORM

Private Sub Command1_Click()
  Dim ret As String
  SetTimer hwnd, NV_INPUTBOX, 10, AddressOf TimerProc
  ret = InputBox("Enter Password")
End Sub

vlc rotation video

สามารถหมุนภาพวีดีโอ ขณะเล่น ใช้  vlc media player