I have a web browser on a form that displays a JPEG image that is on the Internet. A different image for each record.
Is there any way to set zooming using the URL or the web browser control itself?
I need to display a thumbnail version of the full image.
Try this, it works for me in Access 2010.
Private Sub Command1_Click()
''Zoom to 25%
Me.WebBrowser0.Object.ExecWB OLECMDID_OPTICAL_ZOOM, _
OLECMDEXECOPT_DONTPROMPTUSER, CLng(25), vbNull
End Sub
Private Sub Form_Current()
''Navigate image
Me.WebBrowser0.Object.Navigate "http://www.ibiblio.org/wm/rh/img/january.jpg"
End Sub
Related
I had a button click event in my access form which has
DoCmd.OpenForm "frmStudentsAll", acNormal, , , , acDialog
Clicking this button opened the frmStudentAll in dialog view but all of a sudden today clicking this button did not open the form. I thought Access was crashing everytime I clicked this button but I can still edit the VBA but I cannot press any of the buttons in GUI. My thought is that the acDialog is opening a really small form somewhere that I cannot see and I cannot press anything without closing it. I am having to close Access using task manager.
DoCmd.OpenForm "frmStudentsAll", acNormal
Opening the form in just normal view works fine but this is not really what I want. I did not do any new Access updates recently. Not sure why this is happening.
The problem is that the form does open, but is positioned off-screen.
This is a common issue when you have a multi-monitor setup or have different users with different resolutions using the database.
By default, Access stores the location of the form relative to the database window. If a specific user has two screens, or a very large screen, he can easily position it where others can't reach it. And even a single user can position it where he himself can't see it, by first positioning it on the first screen while Access is open on the second screen, and then opening Access on the first screen.
To avoid it, set Auto Center to Yes in the property pane for the form. That makes sure the form is always centered with respect to the Access application window, so always is on-screen as long as Access is on-screen.
Alternatively, when you're locked out of the database because of this issue so can't adjust the form, you can use Forms!frmStudentsAll.Move 0,0 in the VBA Immediate window to reposition it. That way, you don't have to close the database when this occurs.
Not sure if this will help or not but, I'll throw it out there anyways. I had a similar problem when I had two monitors set up. Then lost one. There was one program that I would use all the time but, all of the sudden it wouldn't work. Took a while for it to kick in. That program was opening on the second screen that was no longer there. Just a shot in the dark... Good luck!
I need to do what i describe in Title but when the minimizing with DoCmd.Minimize seems to work as the access window disappears. But then when i try to maximize it back with DoCmd.Maximize, it doesn't give focus back to access window.
PS : i use theses methods in a function called by a acDialog form.
Did you try setting focus on your control/form?
DoCmd.Maximize
Form_MyForm!MyControl.SetFocus
i want to show automatically the Touch Keyboard in MS access when i click on a textbox, wondering why this is not working, is there maybe some property? I also wondering why this is not showing up automatically if i click in a excel cell...
This Touch Keyboard:
ACCESS VBA :
You have to write two lines of VB code
Call Shell("osk.exe", 1)
MyControl.SetFocus
or something like that, where my control is the name of the testbox, which should be activated.
Try this WINDOWS 7:
Start => Control Panel => Ease of access => Ease of Access Center
Under Explore all settings, select Use the computer without a mouse or keyboard.
Ease of Access Center
Under Type using a pointing device, select Use On-screen Keyboard. Click Apply, then OK
Use On-screen Keyboard
Select Change Administrative settings from the column on the left.
Change Administrative settings
Select Apply all settings to the logon desktop. Click Apply, then OK.
Try this WINDOWS 10
Windows 10 does a fairly good job producing the onscreen keyboard when needed, particularly when you've switched to tablet mode. However, getting the onscreen keyboard to pop-up automatically consistently when in desktop mode is difficult.
The keyboard icon in the Windows 10 System Tray helps. You can tap or click this to expose the onscreen keyboard.
But, you can also improve how the onscreen keyboard reacts through the Windows 10 settings.
To do this:
Open All Settings, and then go to Devices.
One the left-hand side of the Devices screen, select Typing and then scroll on the right-hand side until you locate Automatically show the touch keyboard in the windowed apps when there's no keyboard attached to your device
Turn this option to "ON"
Try this:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub RunOsk_on64Bit()
Const SW_SHOWNORMAL = 1
On Error Resume Next
call ShellExecute(0, "open", "C:\windows\system32\osk.exe", "", "", SW_SHOWNORMAL)
End Sub
Let me start with i have very little scripting / programming knowledge :)
My problem is, I have a web page for dashboard in call center that runs off projectors. The webpage is on internal web server.
The web page times out randomly and creates error.
I need to close Chrome (or Firefox) when a web page address changes to error page eg: from localsite.local/page to localsite.local/error
I used Auto-IT- Au3Record and SciTe to record mouse clicks of when the page times out.
This works fine on some PC's but not all. Is there a generic script I could run,
so I don't have to record mouse clicks on all PC's.
current working script
#Region v3.3.9.5 KeyboardLayout=00000809
Func _Au3RecordSetup()
Opt('WinWaitDelay',100)
Opt('WinDetectHiddenText',1)
Opt('MouseCoordMode',0)
Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')
If $aResult[1] <> '00000809' Then
MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & #CRLF & '(00000809->' & $aResult[1] & ')')
EndIf
EndFunc
Func _WinWaitActivate($title,$text,$timeout=0)
WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc
_AU3RecordSetup()
_WinWaitActivate("Website.com/site/Main_Dash_Reporting.aspx - Google Chrome","")
MouseClick("left",1342,14,1)
_WinWaitActivate("Program Manager","")
MouseClick("left",282,746,1)
_WinWaitActivate("Website.com/site/Dash_Viewer.aspx?DashID=5200&RevNum=null - Google Chrome","")
MouseMove(702,311)
MouseDown("left")
MouseMove(707,310)
MouseUp("left")
#EndRegion
Internet Explorer is the programmers tool.
Set objShell = CreateObject("Shell.Application")
Set AllWindows = objShell.Windows
For Each window in AllWindows
msgbox window.locationname
If window.locationname="Scripts" then window.quit
Next
This is a vbscript. For historical reasons it includes both Explorer and IE windows.
Another property is window.locationURL.
I have disabled the functionality to take a screenshot from my app using:
ApplicationView.GetForCurrentView().IsScreenCaptureEnabled = false;
But I would like to hide all the content before the application is suspended/sent to background so the thumbnail appearing in the recent apps or application switcher screen does not show any confidential information.
Have tried to hide content on the onSuspend and Visibility_Changed events, but i think the sceenshot is taken just the moment the user press the Home Button (the one with the Windows logo).
Do you know any way of disabling that feature?
Subscribing to the WindowActivated event might be worth a try. The name is misleading as it will be launched on (any kind of) deactivation as well; which is what you want. I use it to save information on exit scenarios such as Home Button press but have not tested whether you could do a quick redraw or not.
Protected Overrides Async Sub OnLaunched(e As LaunchActivatedEventArgs)
''Stuff
AddHandler Window.Current.Activated, AddressOf WindowActivated
''Stuff
End Sub
Private Sub WindowActivated(sender As Object, e As Windows.UI.Core.WindowActivatedEventArgs)
If e.WindowActivationState = Windows.UI.Core.CoreWindowActivationState.Deactivated Then
''Hide your confidential visuals here
End If
End Sub